Собсно сабж.
Заметил что под фрей этим пакетом можно слать только дефолтные пакеты длиной 56 байт:
21:25:57.131716 k.com.ua > a.kiev.ua: icmp: echo reply (ttl 64, id 54617, len 84)
21:25:57.162349 a.kiev.ua > k.com.ua: icmp: echo request (ttl 58, id 59159, len 84)
21:25:57.162438 k.com.ua > a.kiev.ua: icmp: echo reply (ttl 64, id 54619, len 84)
21:25:57.192573 a.kiev.ua > k.com.ua: icmp: echo request (ttl 58, id 7201, len 84)
21:25:57.192652 k.com.ua > a.kiev.ua: icmp: echo reply (ttl 64, id 54620, len 84)
21:25:57.222841 a.kiev.ua > k.com.ua: icmp: echo request (ttl 58, id 48393, len 84)
Вот как пускаю ping:
#!/usr/bin/perl -w
use Net::Ping::External qw(ping);
# Ping a single host
my $send =1000;
my $recive =0;
my $loss=0;
for(my $i=0;$i<$send;$i++){
my $alive = ping(host => "some_ip_address",size=>1500);
# print "127.0.0.1 is online" if $alive;
# print "$alive\\n";
if ($alive){
$recive++;
}
}
$loss = $send-$recive;
print "Send - $send, Recive - $recive, Loss - $loss\\n";
exit(0);
В принципе в доке к нему написано, что его не тестили под фрей, но под OpenBSD вроде как работает... Может все же у меня руки кривые?
P.S.: Все сие актуально как под root так и под непривелигированным пользователем