[perl] Contador

Mon, 20 Mar 2000 20:37:15 -0800

Pessoal o que tem de errado com o CGI.. � a segunda vez que o contador zera:
 
########
#!/usr/local/bin/perl
open(ARQ,"<cgi/counter/counter.txt");
flock ARQ,2;
$reg=<ARQ>;
open(ARQ,">cgi/counter/counter.txt");
$num=($reg+1);
print ARQ "$num";
flock ARQ,8;
close(ARQ);
$cont=length($reg);
print "<p align=\"center\"><font face=\"Arial\"><small><small>Visitantes<br>";
for($i=4;$i>$cont;$i--)
        {
        print"0";
        };
print "$reg</small></small></font></p>";
exit;
###########
 
Em Unix o flock funciona??? eu uso unix...
ele � chamando por ssi da p�gina... funciona certinho.. s� que zerou de novo... ele zerou em 600 agora em 2500....
 
Valeu.....
 
... Felipe ....

Responder a