Este script abre un archivo de texto que está en el servidor, lee un dato de él (el número de visitas), incrementa el número en 1 y lo muestra por pantalla.
Para leer el archivo se usa el siguiente código:
$file = ´your file location goes here´; # must be readable/writable by your webserver´s user
open (FILE, "+>>" . $file) or die "cannot open $file for reading and appending: $!";
flock(FILE, 2) or die "cannot lock $file exclusively: $!";
Una vez abierto el archivo nos debemos mover al inicio de este para leer su contenido completo:
seek FILE, 0, 0;
Y con esto leeremos el texto:
my @file_contents = <FILE>;
Ahora debemos extraer el número. Para ello usamos expresiones regulares.
my $counterVar;
if ($file_contents[0] =~ /^(d+)$/)
{
$counterVar = $1; # $1 is captured by the ()´s in the regular expression
}
else
{
$counterVar = ´COUNTER ERROR´; # the regular expression didn´t match
}
Incrementamos el número:
$counterVar++;
Guardamos el número en el archivo de texto del servidor:
print FILE $counterVar;
close (FILE);
Mostramos el número de visitantes por pantalla:
print STDOUT "Content-type: text/html "; # this line is always needed!
print STDOUT "<STRONG>You are the " . $counterVar . "th visitor to this page. Welcome!</STRONG><BR>" . " ";
Usuarios que han visto este tema también han visto...
- Variables y estructura de los datos en Perl
- Usando estructuras XML desde Perl
- Desplegar Fecha en Perl
- Conectar a una Base de Datos con Perl
- ¿Cómo enviar emails usando Perl y Sendmail?
- Versión imprimible de este documento
- Enviar por e-mail este documento
