Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
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

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 cooling their heels in the Monastery: (10)
As of 2016-06-30 17:15 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My preferred method of making French fries (chips) is in a ...











    Results (399 votes). Check out past polls.