使用perl的ping模块测试机器

#!/usr/bin/perl -w
use Net::Ping;
$p=Net::Ping->new("icmp");
open(P,"iplist")||die;
while(<P>){
    ($name,$ip)=split(/s/,$_);
    $a=0;
    print $ip;
    for($i=0;$i<100;$i++){
        $p->ping($ip,1)?{$a++,print "!"}:print ".";
    }
    print ("$namet$a%n");
}
Close P;