麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久99热浪潮_成人一区二区三区四区

首頁 > 編程 > Perl > 正文

Perl腳本實現(xiàn)檢測主機心跳信號功能

2020-10-31 15:05:25
字體:
來源:轉載
供稿:網友

使用串口通信,在備機端使用如下腳本檢測來自主機的心跳信號,一旦未接受次數(shù)超過指定記數(shù),備機認為主機DOWN機,自動設置為主機的網絡參數(shù),頂替主機提供服務。

# ! perl -w   use strict; use Win32 :: SerialPort; my  $port  =  ' COM2 ' ; # serail port name registried in OS  my  $count  =  0 ; # count number of heartbeat-receiving failture  my  $max_count  =  5 ; # max fail count to be tolerated  my  $interface  =  '  # ---------------------------------- # 接口 IP 配置     # ---------------------------------- pushd interface ip# "local" 的接口 IP 配置set address name="local" source=static addr=192.168.6.185 mask=255.255.255.0set address name="local" gateway=192.168.6.65 gwmetric=0set dns name="local" source=static addr=192.168.6.112 register=PRIMARYadd dns name="local" addr=192.168.6.201 index=2set wins name="local" source=static addr=nonepopd# 接口 IP 配置結束 ' ; # net inetrface config information   sub errlog {   # log the failtrue occuring time       open ERR ,  ' >>err.log ' ;   my  @time  =  localtime ();   my  $time  =  sprintf ( " %d " ,  $time [ 5 ] +  1900 )              .  ' - '              .  sprintf ( " %d " ,  $time [ 4 ] +  1 )             .  ' - '              .  " $time[3] "              .  '  '              .  sprintf ( " %.2d " ,  $time [ 2 ])             .  ' : '              .  sprintf ( " %.2d " ,  $time [ 1 ])             .  ' : '              .  sprintf ( " %.2d " ,  $time [ 0 ]);   print ERR $time . " /n " ;   close ERR;} sub ipchange {   # change ip addrress       open TMP ,  ' >tmp ' ;   print TMP $interface ;   close TMP;     eval {     system  ' netsh -f tmp ' ;     unlink  ' tmp ' ;  };     if ($@) { return  0 ;}   return  1 ;} my  $ob  = Win32 :: SerialPort -> new( $port ) or die  " CANNOT OPEN $port " ; # open serial port   eval {   # set serial port properties       $ob -> baudrate( 9600 );   $ob -> parity( ' none ' );   $ob -> databits( 8 );   $ob -> stopbits( 1 );   $ob -> handshake( ' none ' );};   if ($@) { die  ' SET FAILED ' ;} $ob -> write_settings or die  " CANNOT WRITE $port DRIVER " ; # write to port driver to make it active   while ( 1 ) {   # loop receiving heartbeat from remote machine  # change ip address after designated count of failture       my ( $length ,  $result ) =  $ob -> read ( 10 );     if ( $result ) {      $count  =  0 ;  } elsif ( $count  ==  $max_count ) {    errlog();     if (not ipchange()) { print  ' IP CHANGE FAILED ' ; }     last ;  }   else {      $count ++ ;  }     sleep ( 1 );} undef  $ob ;

發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板: 国产在线精品一区二区三区 | 国产精品一品二区三区四区18 | 国产韩国精品一区二区三区久久 | 日韩欧美精品中文字幕 | 久久国产一级 | 国产精品一区在线看 | 日韩美香港a一级毛片免费 欧美一级淫片007 | 久久99精品久久久久久国产越南 | 亚洲福利在线视频 | 92看片淫黄大片一级 | 国产免费人做人爱午夜视频 | 欧美精品一区二区久久 | 在线成人一区二区 | 精品国产一区二区三区四区阿崩 | 深夜福利视频绿巨人视频在线观看 | 国产一国产一级毛片视频 | 激情宗合 | 欧美女孩videos| 92看片淫黄大片一级 | 国产乱乱视频 | 国产一区二区三区四区波多野结衣 | 久久久精品视频国产 | 国产影视 | 日韩视频在线免费 | av在线1 | 免看黄大片aa | 宅男噜噜噜66国产免费观看 | 亚洲精品成人久久 | 91小视频在线观看免费版高清 | 羞羞的视频 | 爱操av| 中国洗澡偷拍在线播放 | 国产美女视频黄a视频免费 日韩黄色在线播放 | 色呦呦一区二区三区 | 久久成年网 | 亚洲综合无码一区二区 | 色人阁在线视频 | 国产精品入口夜色视频大尺度 | 久久96国产精品久久久 | 成人一区二区三区四区 | 久久精品亚洲精品国产欧美kt∨ |