user-agent-grouping
Source : Alex Schroeder: Diary
#!/usr/bin/perl use HTTP::BrowserDetect;; while (<STDIN>) { s/\\"/'/g; m/"(([^" ;()\/]*)[^"]*)"$/ or die "Cannot parse:\n$_"; my $browser = new HTTP::BrowserDetect($1); my $brand = $browser->browser_string() || $2; $agent{$brand}++; $total++; } @result = sort {$agent{$b} <=> $agent{$a}} keys %agent; foreach $label (@result) { printf "%30s %10d %3d%%\n", $label, $agent{$label}, 100* $agent{$label} / $total; }
le 09.12.08 à 15:03
dans Mind
- 
Article précédent - Commenter - Article suivant -