麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久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ā)表
主站蜘蛛池模板: 国产精品久久久久久模特 | 毛片大全在线观看 | 在线影院av | 中文字幕在线观看视频一区 | a级毛片免费观看在线播放 日本aaa一级片 | 亚洲小视频在线播放 | 亚洲一区国产二区 | 成人福利视频导航 | av手机在线免费播放 | 精品亚洲国产视频 | 久久久久国产一区二区三区不卡 | 欧美巨乳在线观看 | 国产午夜亚洲精品午夜鲁丝片 | 男女一边摸一边做羞羞视频免费 | 九一成人| 久久久久国产一区二区三区不卡 | 91久久综合 | 日韩毛片一区二区三区 | 欧美高清另类自拍视频在线看 | 国产精品视频自拍 | 美国一级毛片片aa久久综合 | 色中色激情影院 | 国产午夜亚洲精品理论片大丰影院 | 沉沦的校花奴性郑依婷c到失禁 | 色七七网站| 一级毛片特黄 | 久久人人人 | 久久久久久久亚洲视频 | 久久精品久久精品国产大片 | 亚洲电影免费观看国语版 | 黄网站进入 | 黄色av片在线观看 | 青青国产在线视频 | 2018亚洲男人天堂 | 亚洲成人高清电影 | 欧美久久久一区二区三区 | 欧美大穴 | 欧美a级在线免费观看 | 成人一区二区三区四区 | 毛片免费视频在线观看 | 成人免费一区 |