Perl Net:：Ping超时

我有一个非常简单的脚本来ping主机并找出ping的持续时间

use 5.010;

use Net::Ping;
my $p = Net::Ping->new();
my ($ret, $duration, $ip) = $p->ping('google.com');
say $ret;
say $duration;
say $ip;

由于某些原因，这会导致超时（

$ret

返回

0

和

$duration

返回

5

秒）

---

原因是什么？

默认协议是TCP，谷歌显然没有响应。它确实响应ICMP（尽管并非所有服务器都一定会响应）：

my$p=Net:：Ping->new（“ICMP”）你是对的！如果你把它作为答复提交，我会接受的。撇开小问题不谈，如果url也有协议（即默认协议是TCP，Google显然不响应），是否可以执行ping。它确实响应ICMP（尽管并非所有服务器都一定会响应）：
my$p=Net:：Ping->new（“ICMP”）你是对的！如果你把它作为答复提交，我会接受的。除此之外，如果url也有协议，是否可以执行ping（即）