On 6/29/06, Mazhar <[EMAIL PROTECTED]> 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!) -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
