http://www.perlmonks.org?node_id=453364


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