RE: Script Required to Check a range of IP's
- From: tjohnson@xxxxxxxxxxxxxxxxx (Timothy Johnson)
- Date: Thu, 29 Jun 2006 14:02:23 -0700
You've gotten many good suggestions, but the main problem is that you
are doing a TCP ping, and I'm pretty sure you are expecting the results
to match your ICMP ping.
From the Perldoc:"You may choose one of six different protocols to use for the ping. The
"tcp" protocol is the default. Note that a live remote host may still
fail to be pingable by one or more of these protocols. For example,
www.microsoft.com is generally alive but not "icmp" pingable."
You should change this line
my $p = Net::Ping->new();
to
my $p = Net::Ping->new("icmp");
and that will make your results match your "manual" ping results.
-----Original Message-----
From: Mazhar [mailto:syedmazhar.hasan@xxxxxxxxx]
Sent: Thursday, June 29, 2006 8:44 AM
To: Perl Beginners
Subject: Script Required to Check a range of IP's
<snip>
I have written down the below and needs your help because it is not
giving
me the correct ouptut.
<snip>
my $p = Net::Ping->new();
foreach my $host (@host_array)
{
print "$host is ";
print "NOT " unless $p->ping($host, 2);
print "reachable.\n";
sleep(1);
}
$p->close();
<snip>
.
- Follow-Ups:
- Re: Script Required to Check a range of IP's
- From: DJ Stunks
- Re: Script Required to Check a range of IP's
- References:
- Script Required to Check a range of IP's
- From: Mazhar
- Script Required to Check a range of IP's
- Prev by Date: Re: Script Required to Check a range of IP's
- Next by Date: Re: Windows XP ppm and perldoc problems
- Previous by thread: Re: Script Required to Check a range of IP's
- Next by thread: Re: Script Required to Check a range of IP's
- Index(es):
Relevant Pages
|
