Re^3: PERL SCRIPT FOR IPv6 LOOK-UP

heres the second code

#!/usr/bin/perl

use Net::Ping6;

open(INFILE, "<", "/home/olle/file2.txt") or die("cannot open infile: 
+ $!");

my @ip_array = <INFILE>;

close(INFILE);

open(OUTFILE, ">", "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->ping6($&))
          {
            print OUTFILE ("$`is responding to ping.\n");
          }
        else
          {
            print OUTFILE ("$`is NOT responding to ping.\n");
          }
      }    

  } 

close(OUTFILE);
[download]

Comment on Re^3: PERL SCRIPT FOR IPv6 LOOK-UP Download Code

Replies are listed 'Best First'.
Re^4: PERL SCRIPT FOR IPv6 LOOK-UP by toolic (Bishop) on Jun 08, 2010 at 17:49 UTC
In what way is this code not working for you? Be as detailed as possible. Use print as a debug tool to show the value of variables at different points in your code. See also: Basic debugging checklist. `use Net::Ping6; ... if($p->ping6($&))` [download] If I drop the '6', and use Net::Ping, then change $` to `$&`, it works for me: the `ping_output` file shows the correct 'responding' message for the list of IP addresses I gave it.	[reply] [d/l] [select]
Re^4: PERL SCRIPT FOR IPv6 LOOK-UP by AndyZaft (Hermit) on Jun 08, 2010 at 20:23 UTC
Just a note here, chances are that `if($_ =~ /\d+.\d+.\d+.\d+/)` [download] won't be matching IPv6 addresses, since they are normally in hex, can you show us a sample of your file2.txt so we can help you better?	[reply] [d/l]
Re^4: PERL SCRIPT FOR IPv6 LOOK-UP by Generoso (Prior) on Jun 08, 2010 at 20:25 UTC
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);` [download]	[reply] [d/l]