Nuevas NORMAS para el foro

Curso Hacker
Bienvenido(a), Visitante. Favor de ingresar o registrarse.
¿Perdiste tu email de activación? - Julio 27, 2008, 02:49:52
Boton Buscar
Inicio Ayuda Ingresar Registrarse
Visita: Articulos - Juegos Gratis - Da Foros

Comunidad Underground Hispana  |  Programacion  |  Programación  |  Perl (Moderador: OzX)  |  Tema: Crear un contador de Accesos a un sitio web en perl 0 Usuarios y 1 Visitante están viendo este tema. « anterior próximo »
Páginas: [1] Ir Abajo Imprimir
Autor Tema: Crear un contador de Accesos a un sitio web en perl  (Leído 87 veces)
ziX92
Moderación
Gran Colaborador
*****
Desconectado Desconectado

Mensajes: 1956


I Love Desing


Ver Perfil
« en: Enero 19, 2008, 02:51:09 »

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
En línea


Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion
Galeria de Diseño de ziX


Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion
jns07.net
Visitante
« Respuesta #1 en: Enero 20, 2008, 11:57:11 »

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
En línea
Páginas: [1] Ir Arriba Imprimir 
Comunidad Underground Hispana  |  Programacion  |  Programación  |  Perl (Moderador: OzX)  |  Tema: Crear un contador de Accesos a un sitio web en perl « anterior próximo »
Ir a:  


Ranking-Hits
Powered by SMF 1.1.5 | SMF © 2006-2007, Simple Machines LLC