> -----Original Message-----
> From: Mazhar [mailto:[EMAIL PROTECTED]
> Sent: Thursday, June 29, 2006 11:44 AM
> To: Perl Beginners
> Subject: Script Required to Check a range of IP's
>
> Hi Folks,
>
Howdy,
> 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";
To be of more help, I'd suggest that you provide some example input. Is
there one address per line? Multiple addresses per line (delimited).
>
> while (<FILE>) {
> chomp;
> @host_array=$_;
> }
>
If we have some example input, then we can tell if the 'while' block is
kosher. If there are multiple IP addresses, then you'll want to 'push'
the addresses into @host_array.
ry
> 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
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
