Contatore in perl

[grottafelix]

Io utilizzo nei miei siti sempre i contatori in perl.
Vediamo come metterlo nei vostri:

Innanzitutto accertatevi che il vostro spazio abbia la cartella cgi-bin e che questa abbia i permessi di esecuzione.

Fatto questo creiamo una pagina con l'estensione .pl:
Apriamo il nostro caro notepad (w w w il notepad) e incolliamo questo codice:

#!/usr/local/bin/perl


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

$casa_del_cont = "public/conta.txt";
$immagini_dove = "http://www.quimettiltuodominio.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;

Salviamo questo file, tipo "contatore.pl" nella cartella "cgi-bin".

Sempre con notepad creiamo il file contatore.txt e scriviamoci dentro: 0

Salviamo il file contatore.txt nella cartella "Public".

In questo modo abbiamo creato lo scritp perl per il contatore.
Creiamo ora una cartella immagini e inseriamo dentro 10 immagini che richiamino i numeri da 0 a 9. (questa opzione potete anche non farla se nn volete le immagini).
Naturalmente anche questa cartella va messa nella cgi-bin.


Fatto questo lo script è pronto.

Basterà inserire nella pagina dove vogliamo che appaia il contatore questa stringa:

<!--#exec cgi="/cgi-bin/contatore.pl"-->


P.S. questo script lo visto diversi anni fà su aruba, poi lo modificato a mio piacimento. ciao