有人知道Net::Ping使用icmp协议检查时发送多少个数据包吗？

xuezhilei40308

请问$p->ping($ip)的时候，默认发送多少个数据包呢？代码如下

my $p = Net:ing->new('icmp',3);
if($p->ping($ip)){
        print"$ip answered\n";
}else{
        print "$ip did not answer\n";
}
$p->close();
}

sjdy521

应该一次就发一个，可以抓包看下

xuezhilei40308

弱弱的问一下怎么抓呢？

sjdy521 发表于 2012-07-27 11:08
应该一次就发一个，可以抓包看下

sjdy521

回复 3# xuezhilei40308


  比如用tcpdump命令：

1. perl -MNet::Ping -e 'Net::Ping->new("icmp")->ping("220.181.111.188")'

复制代码

结果：

1. tcpdump: verbose output suppressed, use -v or -vv for full protocol decode
   
2. listening on eth0, link-type EN10MB (Ethernet), capture size 96 bytes
   
3. 17:58:15.508185 IP 192.168.0.25 > 220.181.111.188: icmp 8: echo request seq 1

复制代码

调用ping()方法，只抓包发送一次icmp的数据包

sjdy521

回复 3# xuezhilei40308


    哎 我直接安装下这模块给你测试下吧，测试结果见楼上