Re: Script Required to Check a range of IP's
- From: aettinger@xxxxxxxxxxxxxx (Anthony Ettinger)
- Date: Thu, 29 Jun 2006 10:07:02 -0700
On 6/29/06, Mazhar <syedmazhar.hasan@xxxxxxxxx> wrote:
Hi Folks,
I have a requirement of writing down a script to check the range of IP's in
a text file and display them which all are active and not active.
I have written down the below and needs your help because it is not giving
me the correct ouptut.
################################################################
#!/usr/bin/perl
use strict;
use warnings;
use Net::Ping;
my $file_name=$ARGV[0];
my $line;
my @host_array;
open(FILE,"$file_name") || die "Not been Accessed";
while (<FILE>) {
chomp;
@host_array=$_;
}
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();
close (FILE);
###########################################################
Needs your help on the above
Regards
Mazhar
If it helps, I wrote a script to ping a list of mirrors, from a list
of fqdn's...
http://perl-e.chovy.com/sample/ping-mirrors
http://perl-e.chovy.com/sample/ping-mirrors.txt
--
Anthony Ettinger
Resume: http://chovy.dyndns.org/resume.html
(I'm currently available for contract/telecommute work!)
.
- 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: Script Required to Check a range of IP's
- 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
|