Perl en Español

  1. Home
  2. Tutoriales
  3. Foro
  4. Artículos
  5. Donativos
  6. Publicidad
 

Script contador de visitas

 
Publicar nuevo tema   Responder al tema    Foros de discusión -> Experto
Mensaje Vie May 27, 2005 5:44 am
erama
Perlero Nuevo
Perlero Nuevo
Registrado: 27 May 2005
Mensajes: 12
Ubicación: MDQ
Script contador de visitas Responder citando

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!. Smile
Mensaje Vie May 27, 2005 7:21 am
kidd
Creador de Perl en Español
Creador de Perl en Español
Registrado: 15 Oct 2003
Mensajes: 1389
Ubicación: México
Responder citando

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
Mensaje Vie May 27, 2005 10:29 am
erama
Perlero Nuevo
Perlero Nuevo
Registrado: 27 May 2005
Mensajes: 12
Ubicación: MDQ
Responder citando

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.
Mensaje Vie May 27, 2005 1:47 pm
monoswim
Vive para Perl en Español
Vive para Perl en Español
Registrado: 18 Nov 2003
Mensajes: 716
Ubicación: Buenos Aires
Responder citando

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
Mensaje Vie May 27, 2005 3:02 pm
kidd
Creador de Perl en Español
Creador de Perl en Español
Registrado: 15 Oct 2003
Mensajes: 1389
Ubicación: México
Responder citando

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:

#!/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:

<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
Publicar nuevo tema   Responder al tema    Foros de discusión -> Experto Todas las horas son GMT - 6 Horas
Página 1 de 1



Powered by phpBB © 2001, 2005 phpBB Group