question du jour

[gruik]

plus court et plus rapide, toujours en une seule ligne :

Code :

cat access.log | perl -MPOSIX -lne '
%m = ("Jan","01","Feb","02","Mar","03","Apr","04","May","05","Jun","06",
      "Jul","07","Aug","08","Sep","09","Oct","10","Nov","11","Dec","12");
$t{
   POSIX::strftime("%V", $6,$5,$4,$1,$m{$2}-1,$3-1900)
}++ if /\[(..)\/(...)\/(....):(..):(..):(..).+\]/;
END {
   foreach $s (sort keys %t) {
      print "semaine ".$s." : ".$t{$s}
   }
}'

toujours aussi degueu en revanche mais ça je crois pas qu'on puisse y échapper

et ça donne ça :

Code :

# wc -l < access.log
384059
# time (...)
semaine 44 : 102965
semaine 45 : 234023
semaine 46 : 47071

real    0m5.463s
user    0m4.820s
sys     0m0.700s