Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

Re: please help to exclude my own IP address.

by fokat (Deacon)
on May 02, 2005 at 18:18 UTC ( #453364=note: print w/ replies, xml ) Need Help??


in reply to please help to exclude my own IP address.

NetAddr::IP gives you a convenient way to do what you want.

Say you know your home IP address can be in the range 10.0.0.0 to 10.0.0.255 (or 10.0.0/24, in proper CIDR notation). Your code could then...

use NetAddr::IP; my $home_net = new NetAddr::IP '10.0.0/24'; # ... while (<HANDLE_READING_YOUR_LOG>) { my ($string_ip, $rest) = split(/\s+/, $_, 2); my $ip = new NetAddr::IP $string_ip; next if $home_net->contains($ip); # Happily process $string_ip and $rest as it is not from your home n +et # ... }

Best regards

-lem, but some call me fokat


Comment on Re: please help to exclude my own IP address.
Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (4)
As of 2014-10-31 04:52 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (214 votes), past polls