Contador de agentes de usuario

Por Saiyine  el 2005-06-03 00:12:00 - Secciones:  PERL  - Enlace permanente: 378

Este es el sencillisimo script en perl que uso para saber cuales son los navegadores que usan mis visitantes.

#!/usr/bin/perl $ua{"Netscape"}=0; $ua{"K-Meleon"}=0; $ua{"Safari"}=0; $ua{"Konqueror"}=0; $ua{"Opera"}=0; $ua{"Epiphany"}=0; $ua{"Firefox"}=0; $ua{"Galeon"}=0; $ua{"MSIE6"}=0; $ua{"MSIE5"}=0; $ua{"Mozilla"}=0; while (<STDIN>) { if (/Mozilla.*MSIE 6/i) { $ua{"MSIE6"}++; } elsif (/Mozilla.*MSIE 5/i) { $ua{"MSIE5"}++; } elsif (/Mozilla.*Gecko.*Netscape/i) { $ua{"Netscape"}++; } elsif (/Mozilla.*Gecko.*K-Meleon/i) { $ua{"K-Meleon"}++; } elsif (/Mozilla.*Gecko.*Safari/i) { $ua{"Safari"}++; } elsif (/Mozilla.*Gecko.*Epiphany/i) { $ua{"Epiphany"}++; } elsif (/Mozilla.*Gecko.*Firefox/i) { $ua{"Firefox"}++; } elsif (/Mozilla.*KHTML.*Gecko/i) { $ua{"Konqueror"}++; } elsif (/Konqueror/i) { $ua{"Konqueror"}++; } elsif (/Mozilla.*Opera/i) { $ua{"Opera"}++; } elsif (/Mozilla.*Galeon/i) { $ua{"Galeon"}++; } elsif (/Mozilla.*Gecko/i) { $ua{"Mozilla"}++; } } sub hashValueDescendingNum { $ua{$b} <=> $ua{$a}; } foreach $key (sort hashValueDescendingNum (keys(%ua))) { print $key." ".$ua{$key}."\n"; }

Podeis descargarlo de aquí.