I had the same problem at first, but I've found that if you want the
Net::Ping module to work on a Win32 platform, you might have better luck
sticking to the ICMP protocol (which is what your command-line ping is
using). Something like this usually works for me:
my $p = Net::Ping->new('icmp',2);
foreach(@clients){
if($p->ping($_) == 1){
print "$_ is alive.\n";
}else{
print "$_ is not responding!\n";
}
}
Here's the catch, though. You should use one of the other methods to find
out whether an Internet host is alive because many of them have their
servers set to not respond to ping requests from the outside.
-----Original Message-----
From: Lanceo
To: [EMAIL PROTECTED]
Sent: 2/22/02 1:19 AM
Subject: ping
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]
--------------------------------------------------------------------------------
This email may contain confidential and privileged
material for the sole use of the intended recipient.
If you are not the intended recipient, please contact
the sender and delete all copies.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
