ablog

不器用で落着きのない技術者のメモ

日付、時間でアクセスログを集計するPerlワンライナー

$ 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