Contador de vistas
Publicado: 2016-06-01 11:28 @519
Hola. Tengo un contador de visitas CGI:
#! /usr/bin/perl
print "Content-type: text/html\n\n";
#Nombre del archivo que va guardando los incrementos
$this = "counter.txt";
#Abrimos el archivo para leer su contenido
open (THIS, "$this") || die("No puedo abrir el archivo!");
$that = <THIS>;
close (THIS);
open (THIS, ">$this") || die("No puedo abrir el archivo!");
$that++;
print THIS "$that";
close (THIS);
print "$that";
exit;
El script funciona pero, ¿cómo puedo ejecutar el script cada vez que alguien entre al sitio? ¿Puedo correr el script desde un programa HTML (página principal) o debe ser desde un script CGI?
Gracias.
Agradeceré si alguien me indica, por favor, si esta declaración es válida:
<body bgcolor="#FFFFFF" onload="../../cgi-bin/tester/perl count_visitas.cgi">
Gracias.
#! /usr/bin/perl
print "Content-type: text/html\n\n";
#Nombre del archivo que va guardando los incrementos
$this = "counter.txt";
#Abrimos el archivo para leer su contenido
open (THIS, "$this") || die("No puedo abrir el archivo!");
$that = <THIS>;
close (THIS);
open (THIS, ">$this") || die("No puedo abrir el archivo!");
$that++;
print THIS "$that";
close (THIS);
print "$that";
exit;
El script funciona pero, ¿cómo puedo ejecutar el script cada vez que alguien entre al sitio? ¿Puedo correr el script desde un programa HTML (página principal) o debe ser desde un script CGI?
Gracias.
Agradeceré si alguien me indica, por favor, si esta declaración es válida:
<body bgcolor="#FFFFFF" onload="../../cgi-bin/tester/perl count_visitas.cgi">
Gracias.