Re: PERL SCRIPT FOR IPv6 LOOK-UP

Replies are listed 'Best First'.
Re^2: PERL SCRIPT FOR IPv6 LOOK-UP by sam127 (Initiate) on Jun 08, 2010 at 17:37 UTC
thanks for quick repsonse;i actually have 2codes that i got from the internet and trying but isnt working,here are they: here's the simple one that isnt working too; #!/bin/sh # # pinghosts - ping hosts in /home/olle/file2.txt, output is coloured ( +red=bad). Ver 1.00. # # for host in `awk '/^[0-9]/ { print $1 }' /home/ole/file2.txt` do echo "Checking $file2: \c" ping6 $host 1 2>&1 \| \ sed 's/.no answer./[31;1m& [0m/;s/.is alive./[32;2m& [0m/' done [download]	[reply] [d/l]
Re^3: PERL SCRIPT FOR IPv6 LOOK-UP by sweetblood (Prior) on Jun 08, 2010 at 20:03 UTC
This is not a perl script, it's a shell script. Sweetblood	[reply]
Re^4: PERL SCRIPT FOR IPv6 LOOK-UP by ww (Archbishop) on Jun 09, 2010 at 01:37 UTC
Well... The first one is a shell script; the second, "not so much!" :-)	[reply]
Re^5: PERL SCRIPT FOR IPv6 LOOK-UP by Anonymous Monk on Jun 09, 2010 at 02:21 UTC
Re^6: PERL SCRIPT FOR IPv6 LOOK-UP by ww (Archbishop) on Jun 09, 2010 at 11:58 UTC
Some notes below your chosen depth have not been shown here
A reply falls below the community's threshold of quality. You may see it by logging in.
Re^3: PERL SCRIPT FOR IPv6 LOOK-UP by sam127 (Initiate) on Jun 08, 2010 at 17:39 UTC
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]	[reply] [d/l]
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]