indietro

Non vi ha mai detto nessuno che i contatori di accesso sulle pagine web sono inutili? Non contano gli accessi reali, sono una perdita di tempo e servono solo ad alimentare la vanità di chi li utilizza. Meglio prendere un numero casuale. È più realistico.

Ad ogni modo, questo è quello che potete fare se proprio non potete farne a meno:

    use Fcntl qw(:DEFAULT :flock);
    sysopen(FH, "numfile", O_RDWR|O_CREAT) 	 or die "impossibile aprire numfile: $!";
    flock(FH, LOCK_EX) 				 or die "impossibile eseguire flock su numfile: $!";
    $num = <FH> || 0;
    seek(FH, 0, 0) 				 or die "impossibile tornare all'inizio di numfile: $!";
    truncate(FH, 0) 				 or die "impossibile troncare numfile: $!";
    (print FH $num+1, "\n")			 or die "impossibile scrivere numfile: $!";
    close FH 					 or die "impossibile chiudere numfile: $!";

Ecco un contatore di accessi alla pagina decisamente migliore :

    $accessi = int( (time() - 850_000_000) / rand(1_000) );

Se il numero di accessi non fa colpo sui vostri amici, potete provare ad impressionarli con il codice. :-)

vedi in inglese