『AskWan』

#!/usr/bin/perl -w $file=shift; open(FD,"$file"); while(<FD>){     m/(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/;     $IP{$1}++; } print "Client IPs\t\tNum Of Visits\n"; foreach ( sort { $IP{ $b } <=> $IP{ $a } } keys( %IP) ) {    print "$_\t\t", $IP{ $_ }, "\n";    ++$a;    exit 0 if $a>9;    }

usage and output:
# perl parse_apache.pl access_askwan_com_log
Client IPs              Num Of Visits
192.168.11.8            1794924
192.168.11.60           80887
192.168.11.9            34403
192.168.11.50           18026
192.168.11.196          8379
192.168.11.201          1353
192.168.11.155          1041
192.168.21.156          449
192.168.21.161          163
192.168.12.2            84

-------------end--------------

作者：askwan@『AskWan』
地址：http://www.askwan.com/parse_apache_log_with_perl/
可以转载,转载时请以链接形式注明作者和原始出处及本声明！