Perl ping监控

概述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); syst

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); 

总结

以上是内存溢出为你收集整理的Perl ping监控全部内容，希望文章能够帮你解决Perl ping监控所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。