Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re: How to remove duplicate IPs

by jwkrahn (Monsignor)
on Aug 08, 2013 at 00:41 UTC ( #1048466=note: print w/ replies, xml ) Need Help??


in reply to How to remove duplicate IPs

open (NMAP_DATA, "@ARGV") or die "Please type the filename. $!" ;

That should probably be:

open (NMAP_DATA, $ARGV[0]) or die "Please type the filename. $!" ;

But would be even better as:

open NMAP_DATA, '<', $ARGV[0] or die "Cannot open '$ARGV[0]' because: +$!";


my @ip_address = sort $1, "\n" if /($RE{net}{IPv4})/; print IP_DATA @ip_address if (!/^\s*$/);

Why are you sorting the two values $1 and "\n"?    Why are you using an array when you only need a scalar?

print IP_DATA "$1\n" if /($RE{net}{IPv4})/;


Comment on Re: How to remove duplicate IPs
Select or Download Code
Re^2: How to remove duplicate IPs
by sinhass (Initiate) on Aug 08, 2013 at 03:15 UTC

    Hi jwkrahn , thanks for your advise. And frankly speaking I am learning perl so I have no clear idea yet.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1048466]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (6)
As of 2015-07-03 02:50 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (47 votes), past polls