Crear un contador de accesos a un sitio web en Perl (2)

flock( FP, 2 );
## Una vez abierto el archivo lo protegemos para que otra copia del
## script no pueda alterar su contenido mientras lo actualizamos.

my $contador = <FP>;
my $ultimo_ip = <FP>;
## Cargamos las variables $contador y $ultimo_ip con el contenido
## de las dos primeras lineas de nuestro archivo.

if($ultimo_ip !~ /$ip/)
{
## ¿La direccion IP del ultimo usuario es la direccion IP del usuario
## actual? Si no, registramos el acceso y recordamos (grabamos)
## la direccion IP de este usuario. De esta forma evitamos contar
## mas de una vez a un mismo usuario que presione Actualizacion
## repetidas veces en su navegador.

seek( FP, 0, 0 );
print FP ++$contador."n".$ip;
## Nos posicionamos al inicio del archivo (recuerda que lo abrimos
## para lectura y escritura!) y grabamos el nuevo acceso y la
## direccion IP del usuario actual.

}
close(FP);

if($visible)
{
print "<font face=$fuente size=$tamano><b>$contador</b></font>";
}
## Cerramos el archivo y si le indicamos que muestre el contador al
## usuario, generara el codigo html.

}

Autor: Christian Gustavo Riva
http://cgrsoftware.com/

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

- Crear un Robot que Navega por Internet en Perl
- Upload de Archivos con Perl
- Cómo Manejar errores en Perl
- Leer dimensiones de imágenes en Perl
- Mostrar errores en el navegador con Perl

- Versión imprimible de este documento
- Enviar por e-mail este documento