Perl ping

最新推荐文章于 2017-11-16 20:10:00 发布

weixin_30468137

最新推荐文章于 2017-11-16 20:10:00 发布

阅读量65

点赞数

原文链接：http://www.cnblogs.com/zhaoyangjian724/p/6199053.html

版权

<pre name="code" class="html">use Net::Ping;
 $p = Net::Ping->new("icmp");
 while (1==1){
 open (LIST,"<","list.txt") || die "$!\n";
 while (<LIST>)
 {chomp;
 my $host=$_;
 if ($p->ping($host))
 {print "$host is alive\n";}
 else
 {print "$host is die\n"};
 }
 close LIST;
 sleep(5);
   }
   
192.168.11.1
192.168.10.1
192.168.5.1

转载于:https://www.cnblogs.com/zhaoyangjian724/p/6199053.html