Crear un contador de Accesos a un sitio web en perl

[Th3 ziXâ„¢]

A traves del código que encontrarás en esta página, verás cómo puedes hacer muy fácilmente un contador que registre el acceso a tu sitio, y que no cuente más de una vez a un mismo usuario si éste presiona el botón "Actualizar" del navegador repetidas veces.


Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

[jns07.net]

Código:

## ¿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.

Sí, en teoría. En la práctica el servidor web recibirá varias peticiones, cada una de un usuario distinto. Es muy probable que entre actualización y actualización, otros usuarios (con distint @ ip/host) también accedan a esa página. El "truco" para detectar actualizaciones no funciona correctamente.

Código:

if( open( FP, "+<contador.dat" ) )
## Si podemos abrir el archivo CONTADOR.DAT, entonces hacerlo en
## modo lectura(<) y escritura(+).
{
flock( FP, 2 );
## Una vez abierto el archivo lo protegemos para que otra copia del
## script no pueda alterar su contenido mientras lo actualizamos.

¿Y si no se puede abrir el archivo porque otro proceso lo ha bloqueado? Entonces no contará la visita, sea cual sea la dirección ip ó hostname. Se le há olvidado poner un "else if", ó desconoce la
Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

programación concurrente

.

Byezzz