Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
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?
[shmem]: $list_addiction should be $list_addition
Discipulus loose the tozzetto party!
[shmem]: .oO( addition of cookies for addiction to cookies )
[Lady_Aleena]: Other than my typos shmem. 8)
[shmem]: otherwise fine
[Discipulus]: tozzetti & vinsanto
[Lady_Aleena]: The whole line is push @line, ref($list_addition ) ? @$list_addition : $list_addition if $list_addition;
[Lady_Aleena]: And I forgot to do the array check, I'm such a doofus today.
[Lady_Aleena]: push @line, ref($list_addition ) eq 'ARRAY' ? @$list_addition : $list_addition if $list_addition; #trying again
[shmem]: Discipulus: yummy. I like those. Didn't have them for some time now, forgot the name. Should go get some...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (8)
As of 2017-04-27 11:47 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I'm a fool:











    Results (504 votes). Check out past polls.