[Sophisticated Searches]

[Fraser Campbell]

On Thursday 18 December 2003 13:39, Henry Spencer wrote:

> that's aware of Internet addresses and can manipulate them as such.  I'm
> sure somebody's got a library for that in Perl...

Net::IPv4Addr ...

use Net::IPv4Addr qw( :all );
$logline = 'asdf 43tr gerag fdgdgf 34.23.45.222';
if ($ip = ipv4_checkip($logline) ) {
    print "$ip\n";
}

-- 
Fraser Campbell <fraser-Txk5XLRqZ6CsTnJN9+BGXg at public.gmane.org>                 http://www.wehave.net/
Georgetown, Ontario, Canada                         Debian GNU/Linux

--
The Toronto Linux Users Group.      Meetings: http://tlug.ss.org
TLUG requests: Linux topics, No HTML, wrap text below 80 columns
How to UNSUBSCRIBE: http://tlug.ss.org/subscribe.shtml