Perl脚本实现检测主机心跳信号功能
更新时间:2020年6月29日 13:42 点击:2333
使用串口通信,在备机端使用如下脚本检测来自主机的心跳信号,一旦未接受次数超过指定记数,备机认为主机DOWN机,自动设置为主机的网络参数,顶替主机提供服务。
# ! 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.0 set address name="local" gateway=192.168.6.65 gwmetric=0 set dns name="local" source=static addr=192.168.6.112 register=PRIMARY add dns name="local" addr=192.168.6.201 index=2 set wins name="local" source=static addr=none popd # 接口 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 ;
下一篇: Perl信号处理学习简单小结
相关文章
- 本文为那些对学习 Windows PowerShell 命令行和脚本编写环境感兴趣的系统管理员提供了资源。也请告诉我们本网站如何才能对您更有用处。...2020-06-30
- 这篇文章主要介绍了Shell脚本中让进程休眠的方法,本文讲解的就是sleep的用法,可以实现睡觉若干秒、若干分钟、若干小时,需要的朋友可以参考下...2020-07-11
JavaScript 实现自己的安卓手机自动化工具脚本(推荐)
这篇文章主要介绍了 JavaScript 实现自己的安卓手机自动化工具脚本,本文给大家介绍的非常详细,对大家的学习或工作具有一定的参考借鉴价值,需要的朋友可以参考下...2020-05-14- 这篇文章主要介绍了自动设置安卓手机wifi代理的PowerShell脚本,帮助大家进行抓包测试,感兴趣的朋友可以了解下...2020-10-17
- 这两天在用Perl编写一些监控脚本,其实写代码也是一件挺有意思的事情,就是挺废时间的。而且,由于语法不太熟,基本想到一个东西都要先Google一下看怎么实现。...2020-06-29
- 下面小编就为大家带来一篇Perl与JS的对比分析(数组、哈希)。小编觉得挺不错的,现在就分享给大家,也给大家做个参考。一起跟随小编过来看看吧...2020-06-29
- 一、简介 模式指在字符串中寻找的特定序列的字符,由反斜线包含:/def/即模式def。其用法如结合函数split将字符串用某模式分成多个单词:@array = split(/ /, $line);二、匹配...2020-06-29
- Perl时间函数localtime的使用介绍,这里简单的介绍下,更多请查看官方介绍...2020-06-29
- 这篇文章主要介绍了Perl中的特殊内置变量详细介绍,需要的朋友可以参考下...2020-06-29
- 一、列表 列表是包含在括号里的一序列的值,可以为任何数值,也可为空,如:(1, 5.3 , "hello" , 2),空列表:()。 注:只含有一个数值的列表(如:(43.2) )与该数值本身(即:43.2 )是不同...2020-06-29
- 这篇文章主要介绍了讲Perl中的本地时间与UNIX时间戳间相互转换的方法,主要用到了Perl中的Date::Parse模块,需要的朋友可以参考下...2020-06-29
- 对所有输入文件,如果没有版权信息则加上版权信息,否则什么都不做,并对原文件以.bak结尾备份,需要的朋友可以参考下...2020-06-29
- 这篇文章主要介绍了Perl学习笔记之CPAN使用介绍,本文讲解了什么是CPAN、CPAN的目录作用介绍、CPAN安装Perl Module的两种方法等内容,需要的朋友可以参考下...2020-06-29
- 这篇文章主要介绍了Perl中使用MIME::Lite发送邮件实例,本文介绍了使用sendmail方式发送、发送HTML格式邮件、smtp方式发送邮件等内容,需要的朋友可以参考下...2020-06-29
- 今天看到国外的一篇文章可以在cmd中运行95版本的ps1格式的批处理,但经过测试默认情况下powershell支不支持执行脚本需要执行如下操作...2020-06-30
- 这篇文章主要介绍了Perl AnyEvent中的watcher实例,关于AnyEvent请参阅的更多介绍请参阅文中的相关链接,需要的朋友可以参考下...2020-06-29
- 弄懂shell程序,源代码,以及python脚本能够向运维开发方向走,shell程序能够管理集群,提高开发的效率,shell是命令解释器,调用系统内核,帮助你对内核的刷新认识...2021-09-06
- 这篇文章主要介绍了Jmeter如何基于命令行运行jmx脚本,文中通过示例代码介绍的非常详细,对大家的学习或者工作具有一定的参考学习价值,需要的朋友可以参考下...2020-07-22
- perl获取日期与时间的例子,供大家学习参考...2020-06-29
- 本文我们将会学习一下在shell脚本中如何使用正则表达式,常用的shell正则表达式,当然重点还是如何在shell脚本中用正则表达式匹配IP及Email。 shell也可以使用正则分...2016-11-25