Net::Ping::External doesn't honor timeout or count

[Stuart Kendrick]

hi,

i'm using Net:ing::External to do my pings. i would like to fiddle
with its 'timeout' and 'count' parameters ... but i don't seem to be
able to. no matter how i set them, i get the same results: a timeout
of 10 seconds and a count of 1.

#!/usr/bin/perl
use strict;
use warnings;
use Net:ing::External qw(ping);

my @hosts = qw/140.107.200.250 140.107.200.251 140.107.200.252/;
for my $host (@hosts) {
if (ping ( hostname => $host,
timeout => '1',
count => '1'
)
) {
print "$host is alive\n";
}
else {
print "$host is dead\n";
}
}

i've replicated this issue in the following environments:
perl-5.8.5, Net-Ping-External-v0.11, SuSE 9.1
perl-5.8.3, Net-Ping-External-v0.11, SuSE 8.2

has anyone else seen this issue?

--sk

stuart kendrick
fhcrc

 

[John W. Krahn]

i'm using Net:ing::External to do my pings. i would like to fiddle
with its 'timeout' and 'count' parameters ... but i don't seem to be
able to. no matter how i set them, i get the same results: a timeout
of 10 seconds and a count of 1.

Since Net:ing::External is just using your system's ping command have you
tried running ping with qx//? Have you read the man page for ping?

man ping



John

 

[Stuart Kendrick]

ahhh, RTFM ... or RTFC ...

i've modified my copy of Net:ing::External to accept the "-W"
argument ... thanx bill,

--sk

hi,

i'm using Net:ing::External to do my pings. i would like to fiddle

[...]


Yes, with Mandrake. But:

From the docs:
-----------------------
Linux

Tested OK on Debian 2.2 and Redhat 6.2. It appears that different
versions of Linux use different versions of ping, which support
different options. Not sure how I'm going to resolve this yet; for now,
all the options but count are disabled.