$ perl -MFile::Basename -lane 'print substr($F[3],1,14) if(((fileparse($F[6],qw(\.[^\.]+$) ))[2]) !~ /.gif|.js|.css/);' access_log.* | uniq -c
追記:
$ perl -MFile::Basename -lane 'print substr($F[3],1,11) . " " . $F[6] if(((fileparse($F[6],qw(\.[^\.]+$) ))[2]) !~ /.gif|.js|.css/);' access_log.* > 1.txt $ sort 1.txt > 2.txt