Contatore accessi in Perl

[grottafelix]

#!/usr/local/bin/perl


$numero_cifre = "4";
$estensione = ".gif";

$casa_del_cont = "d://inetpub//webs/nomedominiocom//public//conta.txt";
$immagini_dove = "http://www.tuodominio.com/images/";

$tipo_grafico = "no";


print ("Content-type: text/html\n\n");



open (COUNTER, "$casa_del_cont");
$contiamo = <COUNTER>;
chop ($contiamo) if $contiamo =~ /\n$/;
close (COUNTER);

$contiamo += 1;

open (COUNTER, ">$casa_del_cont");
print COUNTER ("$contiamo");

close (COUNTER);

@quantesono = split(//, $contiamo);

if ($numero_cifre eq "") {
$dimmelo_tu = @quantesono;
} else {
$dimmelo_tu = $numero_cifre;
}


$spezziamole = '%0' . $dimmelo_tu . 'd';
$contiamo = sprintf("$spezziamole", $contiamo);

@conta_immagini = split(//, $contiamo);


foreach $ora_le_vedo (@conta_immagini) {
if ($tipo_grafico eq yes) {
$vediamo_ste_immagini = "<img src=$immagini_dove" . "$ora_le_vedo" .
"$estensione>";
print ("$vediamo_ste_immagini");
} else {
$senza_immagini = $ora_le_vedo;
print ("$senza_immagini");
}
}

exit;

 

[lukeonweb]

http://www.latoserver.it/perl/contatore/