• Publicidad

Script contador de visitas

Así que programas sin strict y las expresiones regulares son otro modo de hablar. Aquí encontrarás respuestas de nivel avanzado, no recomendable para los débiles de corazón.

Script contador de visitas

Notapor erama » 2005-05-27 06:44 @322

Hola a todos, quisiera saber si en el script contador de visitas del tutorial hay algun método que pueda ser empleado en páginas html, porque estuve mirando y comenta que hay que utilizar una inserción SSI en la páginas.
¿hay alguna alternativa para que pueda ser utilizardo en cualquier sitio html plano?.

Saludos y muchas gracias!. :)
erama
Perlero nuevo
Perlero nuevo
 
Mensajes: 12
Registrado: 2005-05-27 06:40 @319
Ubicación: MDQ

Publicidad

Notapor kidd » 2005-05-27 08:21 @390

Que yo sepa no hay, lo que pasa es que recuerda que los scripts de perl deben de ser EJECUTADOS, un HTML no hace eso, solamente muestra la información que tiene.


SALUDOS
Uriel Lizama Perl programmer fundador de Perl en Español
Perl Programming Language
Avatar de Usuario
kidd
Creador de Perl en Español
Creador de Perl en Español
 
Mensajes: 1166
Registrado: 2003-10-15 16:52 @744
Ubicación: México

Notapor erama » 2005-05-27 11:29 @520

ok gracias, yo pensas que quizas se podia implementar algo en java script para llamar al scritp en perl y asi contar las vistas, es decir utilizar con código con el de nedstats basic.

Saludos y gracias.
erama
Perlero nuevo
Perlero nuevo
 
Mensajes: 12
Registrado: 2005-05-27 06:40 @319
Ubicación: MDQ

Notapor monoswim » 2005-05-27 14:47 @658

Pues si se puede...Justamente mediante JS colocando en el HTML


<script type="text/javascript" language="JavaScript" src="http://www.cominio.com/cgi-bin/contador/index.pl"></script>

Ese index.pl debe devolver la información en formato JS o sea

document.write('Visitante Nro 1500')

Espero que te sirva

Saludos
MonoSwim
Perl Programming Language
Avatar de Usuario
monoswim
Perlero nuevo
Perlero nuevo
 
Mensajes: 452
Registrado: 2003-11-18 16:13 @717
Ubicación: Buenos Aires

Notapor kidd » 2005-05-27 16:02 @710

Hola:

Se me patino por completo la solución que te dió Monoswim. Todo lo que tienes que hacer es cambiar el despliegue del código final para que sumile un script de JavaScript:

Código: Seleccionar todo
#!/usr/bin/perl -w
use strict;

my $archivo = "visitas.txt";
my $usar_flock = 1; #poner en 0 si es windows
my $user_agent = $ENV{'HTTP_USER_AGENT'};

open(FILE, ">>$archivo"); #abrir el archivo para escritura
flock(FILE, 2) if $usar_flock; #usar flock() si disponible
print FILE "$user_agent\n"; #escribir nueva entrada
close(FILE); #cerrar archivo

open(FILE, "$archivo");
flock(FILE, 1) if $usar_flock;
my $visitas_totales = my @lineas = <FILE>; #leer lineas totales
close(FILE);


print "Content-type: text/html\n\n";
print "document.write(\"<b>Visitas totales:</b> $visitas_totales\");\n";

exit(1);



Entonces en tu HTML puedes poner algo así:

Código: Seleccionar todo
<html>
<head>
<title>Página de Prueba</title>
</head>

<body>

<script type="text/javascript" language="JavaScript" src="http://www.dominio.com/cgi-bin/contador.pl"></script>

</body>
</html>



SALUDOS
Uriel Lizama Perl programmer fundador de Perl en Español
Perl Programming Language
Avatar de Usuario
kidd
Creador de Perl en Español
Creador de Perl en Español
 
Mensajes: 1166
Registrado: 2003-10-15 16:52 @744
Ubicación: México


Volver a Avanzado

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado

cron