CORRE��O.... esqueci do seek....
Que dizer que assim est� certo....
#!/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";
seek(ARQ, 0, 0);
flock(ARQ,8);
close(ARQ);
Era por causa do 2 open????
CGI ORIGINAL:
#!/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);
At� ++++++++++
http://www.mrweb.com.br/perl/
=======================================
>>No site da lista, voce tera tudo sobre PERL,
>>LINUX, PHP, ASP e informacoes, cadastramento
>>e descadastramento da Lista.
=======================================
