Este script abre un archivo de texto que está en el servidor, lee un dato de el (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>" . " ";



Código entero del Script:


#!/usr/local/bin/perl -w


$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: $!";

seek FILE, 0, 0;

my @file_contents = <FILE>;

truncate FILE, 0;

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
}

$counterVar++;  # auto-increment the same variable with 1
                # note: with this code, if counterVar is NOT an incrementable number, $counterVar will be set to 1.
                # that's not necessarily a bad thing.

print FILE $counterVar;
close (FILE);

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>" . " ";

end(0);