I am using something like this to ping other hosts:
use strict;
use Net::Ping;
use Time::HiRes;
my $p = Net::Ping->new("icmp");
$p->hires();
while (1) {
my ($ret, $duration, $ip) = $p->ping($host, 5);
printf "02d:%02d:%02d,%d,%.0f\n",
$hour,$min,$sec,$ret,$duration*1000;
sleep 3;
}
This seems pretty close to the icmp example in the docs.
I get results of generally 16 ms or 0 ms. I never get a non-0 number less than 16 (and I get larger numbers in rough multiples of 16. So this looks like a Win32 issue of time granularity.
Is there something I can do?
Thanks, --traveler
Update: From reading lots of four-year-old posts here it seems that I have an old hires.dll, even though I have perl 5.8.1. Where do I get a new dll?