olhando a minha caixa de email, achei essa mensagem enviada em 21/03/2000,
nem sei se o amigo Marco ainda le essa lista, mas aqui vai a mensagem
enviada por ele a fim de sanar todas as duvidas do flock.
Date: Tue, 21 Mar 2000 09:04:19 -0300
From: Marco A P D' Andrade <[EMAIL PROTECTED]>
Reply-To: [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Subject: 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!
--
FiscoData Legisla��o On Line - Curitiba/PR
Marco A P D'Andrade - [EMAIL PROTECTED]
WebMaster (41) 333-5775
t+ galera
e ai Marco como andam as coisas ???
------------------------------------------------------
[aechiara@pinga]~$ rm -rf *
^C^C^C
[aechiara@pinga]~$ ls -l
total 0
[aechiara@pinga]~$ Ahhhh ........
bash: Ahhhh: command not found
[aechiara@pinga]~$ logout
Connection to pinga closed.
/"\
\ /
X ASCII RIBBON CAMPAIGN - AGAINST HTML MAIL
/ \ CAMPANHA DA FITA ASCII - CONTRA MAIL EM HTML
Linux ... a nice place to live
*******************************************
* Alex Eduardo Chiaranda *
* mail: [EMAIL PROTECTED] *
* [EMAIL PROTECTED] *
* [EMAIL PROTECTED] *
* Pagina => http://www.eep.br/~aechiara *
* ICQ => UIN 13070511 *
* 4o Ano de Ciencia da Computacao *
* Escola de Engenharia de Piracicaba *
* Piracicaba - SP *
*******************************************
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.
������������==
