perl - 使用 Net::Ping 遇到问题

Question

我正在使用 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.xx [ip: 10.10.xx] 存活（包返回时间：18.72 ms）

使用命令提示符：

C:\ping 10.10.xx -t

使用 32 字节数据 Ping 10.10.xx：

请求超时。

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