develooper Front page | perl.beginners | Postings from February 2002


Thread Next
February 22, 2002 01:19
Message ID:

I am having difficulty getting the Net::Ping module to work properly.  I am
using ActivePerl on a win32 platform.  I can ping a server in a
dos prompt ok, but when I try to get the Perl Net::Ping to work it always
returns a failure.  It seems to ponder over pinging the host for a couple of
seconds, and then return a zero as a result, which means that it could not
reach the host, if my interpretation of the docs is correct.

Here is the snippet in question:

 my ($pingThing, $host, $pingResult);
 $host = '';
  $pingThing = Net::Ping->new("tcp", 1);
  $pingResult = $pingThing->ping($host);

  print "$pingResult\n";
 if($pingResult == 1){print "$host is alive.\n";}
 else{print "$host could not be pinged\n";}


Am I doing something wrong here, or do I need some other module that I am
unaware of?  I find this sort of bizarre, as I have LWP doing a successful
page fetch, so the module can obviously access the web.

Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (
Version: 6.0.325 / Virus Database: 182 - Release Date: 2/20/02

Thread Next Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at | Group listing | About