perl笔记之ping批量检查IP是否连通
发布时间：2020-12-16 00:41:08 所属栏目：大数据 来源：网络整理
导读：perl笔记之ping批量检查IP是否连通 2011-03-04 15:00:44 标签： perl ping net::ping 批量ping 原创作品，允许转载，转载时请务必以超链接形式标明文章 原始出处 、作者信息和本声明。否则将追究法律责任。 http://www.voidcn.com/article/p-anusolws-ca.htm
|
perl笔记之ping批量检查IP是否连通 2011-03-04 15:00:44
标签：
perl
ping
net::ping
批量ping
原创作品，允许转载，转载时请务必以超链接形式标明文章
原始出处 、作者信息和本声明。否则将追究法律责任。
http://www.voidcn.com/article/p-anusolws-ca.html
由于有时候要批量的用ping检查服务器的IP是否可用，一个一个的ping太麻烦了，所以利用perl中的Net::ping模块，代码如下
use warnings;
open AA,"ip"; use Net::Ping; chomp(@ARGV=<AA>); foreach $host (@ARGV){ $p = Net::Ping->new("icmp"); # print "$host is alive.n" if $p->ping($host,5); print "$host is "; ????????????????print "lost " unless $p->ping($host,2); ????????????????print "reachable.n"; $p->close(); sleep(1); } close AA;
（编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |
