On Wed, 2006-05-17 at 10:57 -0400, Zembower, Kevin wrote:
> Any advice on correcting my script? Thanks in advance for your
> suggestions.
>
perl -e 'while (<>) { $seen{$1}++
if /(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/; } print join("\n",sort keys %
seen) . "\n";' access_log
HTH
--
Joshua Colson <[EMAIL PROTECTED]>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
