使用Net :: Ping时遇到麻烦

时间:2013-10-03 11:20:04

标签: perl ping

我正在使用Net :: Ping来检查网络可用性。当我运行代码时,它返回响应。但是当我使用命令提示符重新检查时,它就超时了。

守则:

$p = Net::Ping->new('tcp');
$p->hires();
($ret, $duration, $ip) = $p->ping($host);
if ($ret){
printf("$host [ip: $ip] is alive (packet return time: %.2f ms)\n", 1000 * $duration);
}else{
printf("time out");
}

结果:

10.10.x.x [ip:10.10.x.x]处于活动状态(数据包返回时间:18.72 ms)


使用命令提示符:

C:\ ping 10.10.x.x -t

使用32字节数据对10.10.x.x进行Ping操作:

请求超时。


任何解释和建议都将不胜感激

0 个答案:

没有答案