Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1489907
  • 博文数量: 234
  • 博客积分: 4966
  • 博客等级: 上校
  • 技术积分: 3322
  • 用 户 组: 普通用户
  • 注册时间: 2006-11-13 01:03
文章分类

全部博文(234)

文章存档

2017年(2)

2016年(1)

2015年(8)

2014年(11)

2013年(44)

2012年(27)

2011年(22)

2010年(30)

2009年(37)

2008年(6)

2007年(45)

2006年(1)

分类:

2009-10-27 23:16:48

1.20091028
#!/usr/bin/perl -w
use Socket;
use Net::Ping;

open(FILE,"ip.txt")||die"can not open the file: $!";
@filelist=;
foreach $eachline (@filelist) {
chomp $eachline;
$p = Net::Ping->new('icmp');
for ($eachline)
{
print $eachline, " NOT reachable.\n" unless $p->ping($eachline, 2);
}
$p->close();
}
close FILE;



2.20091027
#!/usr/bin/perl -w
use Socket;
use Net::Ping;
$p = Net::Ping->new('icmp');
while(<>)
{
    chomp;
    (undef, undef, undef, undef, @addrs) = gethostbyname($_);
    for (@addrs)
    {
        $ip = inet_ntoa($_);
        print $ip, " NOT reachable.\n" unless $p->ping($ip, 2);
    }
}
$p->close();
 
ping.pl < ip.txt
阅读(1083) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~