Perl ping监控

最新推荐文章于 2020-09-26 19:43:00 发布

scan724

最新推荐文章于 2020-09-26 19:43:00 发布

阅读量709

点赞数

分类专栏： Perl高级编程

本文链接：https://blog.csdn.net/zhaoyangjian724/article/details/42263345

版权

Perl高级编程专栏收录该内容

41 篇文章 30 订阅 ¥39.90 ¥99.00

订阅专栏

这是一个使用Perl编写的简单心跳监控脚本，通过Net::Ping模块进行ICMP ping操作。如果未提供参数，脚本会提示输入。它首先检查指定主机是否存活，如果主机在5秒内未响应，则认为其不可达，并触发执行SMSsendx命令发送报警信息。

摘要由CSDN通过智能技术生成

use warnings;  
use Net::Ping;  
if ($#ARGV <0){  
   print "请输入一个参数\n";  
  exit(-1);  
}  
$host = $ARGV[0];  
$p = Net::Ping->new("icmp");  
 print "$host is alive.\n" if $p->ping($host,5);  
 system("SMSsendx  xxxxxxxx \"$host is lost\" x.x.x.x" ) unless $p->ping($host, 2);  
 $p->close();  
 #sleep(1);