Hi,

I am having difficulty getting the Net::Ping module to work properly.  I am
using ActivePerl 5.6.1.631 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 = 'www.google.com';
  $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";}

 $pingThing->close();

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 (http://www.grisoft.com).
Version: 6.0.325 / Virus Database: 182 - Release Date: 2/20/02



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to