perl ping 模块测试机器

perl]# cat ping.pl
#!/usr/bin/perl -w
use Net::Ping;
$p=Net::Ping->new("icmp");
open(P,"iplist")||die;
while(

){
    ($name,$ip)=split(/\s/,$_);
    $a=0;
    print $ip;
    for($i=0;$i<100;$i++){
        $p->ping($ip,1)?{$a++,print "!"}:print ".";
    }
    print ("$name\t$a%\n");
}
Close P;
[root@jzlf