Contador Corto
Lenguaje: Perl
El contador de visitas (quizás) más corto del mundo.
El script en Perl se auto-modifica de manera que el arreglo asociativo %C lleva
la cuenta de visitas por página (sirve para contar en varias páginas!). NO HAY
QUE CONFIGURAR NADA, simplemente llamar al contador desde una página, como
se muestra en el ejemplo de más adelante.
Al ejecutar directamente el contador, entrega una lista de las páginas contadas
y sus respectivas visitas.
ejemplo.html
<html> <body> Numero de visitas: <script src="contador.pl"></script> </body> </html>
contador.pl
# Autor: Mannungo
undef $/;
print "Content-Type: text/plain\n\n";$a=$C{$p=$ENV{HTTP_REFERER}}+1;
if($p&&open S,"+<$0"
{$p="C{'$p'}=";$s=<S>;$s=~s/(\$$p\d+;\n|(^print))/\$$p$a;
$2/m;seek S,0,0;print S $s;close S;print $a;}else{map{print "$C{$_} $_\n"}sort{
$C{$b}<=>$C{$a}} keys %C;}