Crear un contador de accesos a un sitio web en Perl

A traves del siguiente codigo veras como puedes hacer muy facilmente un contador que registre el acceso a tu sitio, y que no cuente mas de una vez a un mismo usuario si este presiona Actualizar repetidas veces.

Para implementarlo deberas generar el archivo contador.pl con el codigo listado, copiarlo a tu FTP y asignarle los permisos correspondientes de ejecucion, y luego utiliza el siguiente codigo SSI en tus paginas:
<!--#include file="ruta_del_script/contador.pl"-->

Recuerda que el codigo es para uso libre y su finalidad es introducirte en los conceptos que trata y animarte a que experimentes por tu cuenta.

Los comentarioste ayudaran a entender el funcionamiento del script.

Codigo:

###################################
# (C) 2001 Christian Gustavo Riva #
# http://www.cgrsoftware.com #
###################################
#!/usr/bin/perl
## Requerido para servidores Unix/Linux unicamente.

use strict;
## Nos obligamos a tener que declarar todas las variables
## antes de utilizarlas. Si bien el codigo es muy breve, nos
## ayuda a no tipear nombre de variables incorrectamente
## y a no crear mas variables de las necesarias.

my $visible = 1;
## Esta variable nos permitira mas adelante mostrar o no el
## resultado del contador al usuario. Si queremos que no se
## visualice el numero de visitas (pero si se cuenten)
## deberiamos darle valor 0 (cero).

my $fuente = "Verdana";
my $tamano = "2";
## Nombre y Tamaño de la fuente con la cual visualizaremos
## en la pagina el resultado del contador.

my $ip = $ENV{"REMOTE_ADDR"};
## Tomamos la direccion IP del cliente desde la variable de
## entorno REMOTE_ADDR.

if(!$ip) { $ip = $ENV{"REMOTE_HOST"}; }
## ¿No hay datos del IP? Entonces tomamos el host del
## cliente desde la variable REMOTE_HOST.

print "Content-type: text/htmlnn";
## Le enviamos al cliente el tipo de datos que le devolvera nuestro
## script. En este caso codigo html.

if( ! -e "contador.dat" ) { open( FP, ">contador.dat" ); close(FP); }
## ¿No existe ningun contador aun? Entonces lo creamos.

if( open( FP, "+<contador.dat" ) )
## Si podemos abrir el archivo CONTADOR.DAT, entonces hacerlo en
## modo lectura(<) y escritura(+).
{

Usuarios que han visto este tema también han visto...

- Usar módulos sin instalar en PERL
- Creación y control de procesos en Perl
- Funcionesde Perl
- Usando estructuras XML desde Perl

- Versión imprimible de este documento

- Enviar por e-mail este documento