A buddy of mine just sent me this little Perl line to print out your IP addresses.  It does checking and everything.  Hank loves his perl.

perl -n -e "/(^|\D)([01]?\d?\d|2[0-4]\d|25[0-5])\.([01]?\d?\d|2[0-4]\d|25[0-5])\.([01]?\d?\d|2[0-4]\d|25[0-5])\.([01]?\d?\d|2[0-4]\d|25[0-5])(\D|$)/g && print \"$2.$3.$4.$5\n\";" /var/log/messages

It will run through the file specified, and print each IP address it finds to STDOUT.  You can redirect the output with > >> and | like normal.  Note that it will only print the IP, not the whole line.


Dusty