Ping 1000个包看丢跑率

<pre name="code" class="sql">use warnings;    
use Net::Ping;  
 $J=0;
 $K=0;
for ($i = 1;$i <= 1000;$i++){  
if ($#ARGV <0){    
   print "请输入一个参数\n";    
  exit(-1);    
}    
$host = $ARGV[0];    
$p = Net::Ping->new("icmp");
  if ($p->ping($host,5)){$J++ }
  
 
else{$K++}


 $p->close();    
 #sleep(1);
 print "$host  alive is $J\n";
print "$host  lost is $K\n";
}



##第二个参数为默认超时值($def_timeout)，以秒为单位，设置此值是为了定义PING方法的超时值，默认为5秒

##第二个参数为默认超时值($def_timeout)，以秒为单位，设置此值是为了定义PING方法的超时值，默认为5秒



 If a default timeout ($def_timeout) in seconds is provided, it is
        used when a timeout is not given to the ping() method (below). The
        timeout must be greater than 0 and the default, if not specified, is
        5 seconds


$p->ping($host [, $timeout]);
        Ping the remote host an