
Net::Ping WON'T WORK!!!!!
Peter,
I've never had any problems with this module... i presume from your mention
of protocols that you are using the most recent version of Net::Ping. Can you not
just use
the (old) pingecho method...? Some thing like this should work fine:
use Net::Ping;
my $node = 'xyz';
if (pingecho($node, 2)) {
print "$node is responding\n";
Quote:
}
else {
print "$node is NOT responding...\n";
Quote:
}
What was the exact error message you were getting, also which version of perl
are you running?
alex.
_________________________________________________________________________
Texas Instruments Limited,
800 Pavillion Drive, Tel (work): 01604 663450
Brackmills Industrial Estate, (home): 01604 764961
Northampton, NN4 7YL.
U.K.
Quote:
> I've tried to use Net::Ping in my programs, but I can't seem to get it
> to work right! For some reason, no matter what protocol I use, the
> server never responds (yes, I've tried MANY different servers) . I am
> using the sample script given in the module itself, not one of my own
> design, so there's no reason why it shouldn't work. I tried running it
> on both MacPerl and Unix. On MacPerl, no response from server, on Unix,
> it gives an error regarding Socket.pm and how some arguement should have
> the value 16 rather than 0.
> If anyone has had success with this module, I'd greatly appreciate
> seeing the source or getting some input as to how to get it to work.