note
fokat
<p>[cpan://NetAddr::IP] gives you a convenient way to do what you want.</p>
<p>Say you know your <em>home</em> 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...</p>
<CODE>
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 net
# ...
}
</code>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-107541">
<P>Best regards</P>
<P>-<A HREF="http://mipagina.cantv.net/lem/">lem</A>, but some call me fokat
</div></div>
453351
453351