uma vez algu�m aqui na lista falou que o flock() s� era necess�rio na
escrita, e na leitura n�o tinha necessidade.
algu�m pode dizer algo sobre isso?
abra�os,
_______________________
francisco lopes
uin: 17364815
email: [EMAIL PROTECTED]
-----Mensagem Original-----
De: Marco A P D' Andrade <[EMAIL PROTECTED]>
Para: <[EMAIL PROTECTED]>
Enviada em: Ter�a-feira, 21 de Mar�o de 2000 09:04
Assunto: Re: [perl] Contador
> Deveria ter zerado mais vezes !!
>
> Veja que vc bloqueia o arquivo e como o flock vai ficar aguardando poder
> bloquear, qualquer acesso simultaneo (no exato segundo) iria zerar.
>
> Open
> Aguarde at� bloquear
> Ler
> unlock
> Fechar
>
> open
> lock
> gravar
> unlock
>
> Alguem faz a leitura na hora que vc esta com o arquivo zerado...
>
> Pimba. zerou!
>
> Use este. (nunca zerou!)
>
> sub ConsultaID()
> {
> my ( $ID, $cnt );
> unless ( open(C, "+<../count/login") ) {
> $ID = "00000000";
> } else {
> flock(C, 2);
> $ID = <C>;
> $ID = sprintf("%08s", $ID+1);
> seek(C, 0, 0);
> print C $ID;
> flock(C, 8);
> close(C);
> }
> return ( $ID );
> }
>
> Por favor...
>
> Mail em texto!
>
> Felipe wrote:
>
> > 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 ....
>
> --
> 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.
> =======================================
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.
=======================================
