Corre��o feita e ok!
Sim, agora esta certo!
Fa�a o teste do 2 open...
rode o script em dois terminais:
$|=1;
open(X, "teste");
flock(X,2)
$_ = <X>;
print "Aguardando"; <>;
close(X);
print "Fechado\n\n";
open(X, ">teste");
flock(X,2)
print "Gravando\n\n";
print X $_ + 1;
close(X);
print "FIM\n\n";
Felipe wrote:
> 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.
> =======================================
--
FiscoData Legisla��o On Line - Curitiba/PR
Marco A P D'Andrade - [EMAIL PROTECTED]
WebMaster (41) 333-5775
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.
=======================================
