Re^4: PERL SCRIPT FOR IPv6 LOOK-UP

[Generoso]

Try this, it is working for me.

#!/usr/bin/perl
use Net::Ping;
open(INFILE, "<", "d:\\file2.txt") or die("cannot open infile:  $!");
my @ip_array = <INFILE>;
close(INFILE);
open(OUTFILE, ">", "d:\\ping_output") or die("unable to write output: 
+$!");
chomp(@ip_array);
$p = Net::Ping->new();
foreach(@ip_array)
  {
   if($_ =~ /\d+.\d+.\d+.\d+/)
      { 
    if($p->ping($&))
          {
            print OUTFILE ("$_ is responding to ping.\n");
          }
        else
          {
            print OUTFILE ("$_ is NOT responding to ping.\n");
          }
      }    

  } 
close(OUTFILE);