my %ips; for (<LOG>) { $_ =~ /(.*)\s-\s-\s(\[.*?\])\s\"(.*?)\"\s(\S+)\s(\S+)\s\"(.*?) +\"\s\"(.*)\"/o; if (! $ips{$1}) { $ips{$1} = 1; if ($6 !~ /-/) { print "$2 $1 $6\n"; } } }
In reply to Big file, system no likey .. by aaAzhyd
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |