<HTML><BODY style="word-wrap: break-word; -khtml-nbsp-mode: space; -khtml-line-break: after-white-space; ">Olá Kleber,<DIV><BR><DIV><DIV>On 2007/04/05, at 18:11, KLEBER wrote:</DIV><BR class="Apple-interchange-newline"><BLOCKQUOTE type="cite"><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">Tomo a liberdade de enviar-lhe(s) este email cujo o assunto é PERL pois<SPAN class="Apple-converted-space"> </SPAN></DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">talvez você ou alguém que conheça<SPAN class="Apple-converted-space"> </SPAN>possa me ajudar.</DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">Estou escrevendo uma aplicação em perl<SPAN class="Apple-converted-space"> </SPAN>e preciso garantir que um</DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">determinado processo seja executado de forma única ( sem concorrência ).</DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; min-height: 14px; "><BR></DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">Pôr exemplo , uma função que atualiza uma tabela de agencia , ao ser</DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">executada<SPAN class="Apple-converted-space"> </SPAN>, todas as outras funções que acessam esta tabela deve esperar</DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">sua conclussão ( portanto deve-se formar uma fila de pedidos para</DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">atendimento ).</DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; min-height: 14px; "><BR></DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">Atualmente estou fazendo isto da seguinte maneira :</DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">#</DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">#<SPAN class="Apple-converted-space"> </SPAN>Permite executar um script por vez</DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">#</DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">denovo:</DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">if ( -e "c:\\payback\\contabil\\tabelas\\agencia\\cgiaform.nul" ) { goto<SPAN class="Apple-converted-space"> </SPAN></DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">denovo; }</DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">sysopen( TASK15,</DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">"c:\\payback\\contabil\\tabelas\\agencia\\cgiaform.nul",</DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">O_WRONLY|O_EXCL|O_CREAT<SPAN class="Apple-converted-space"> </SPAN>) or warn ( goto denovo );</DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">flock( TASK15, LOCK_EX ) or warn ( goto denovo );</DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">---------------------------------</DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">Instruções diversas em perl<SPAN class="Apple-converted-space"> </SPAN>5.8</DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">--------------------------------</DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">flock( TASK15, LOCK_UN );</DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">close( TASK15 );</DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">unlink( "c:\\payback\\contabil\\tabelas\\agencia\\cgiaform.nul" );</DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">exit;</DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; min-height: 14px; "><BR></DIV></BLOCKQUOTE><DIV><BR class="khtml-block-placeholder"></DIV><DIV>Uma maneira primitiva de fazer a mesma coisa, utilizando arquivos como lock.</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV><code></DIV><DIV>use File::Slurp;</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>PROCESS:</DIV><DIV>{</DIV><DIV> if ( -e $LOCK_FILE ) {</DIV><DIV> </DIV><DIV> sleep 1;</DIV><DIV> redo PROCESS;</DIV><DIV> }</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV> write_file($LOCK_FILE, $$);</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV> do_whatever_you_want();</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV> unlink $LOCK_FILE;</DIV><DIV>}</DIV><DIV></code></DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>Agora com flock:</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV><code></DIV><DIV># importa constantes para flock e seek</DIV><DIV>use Fcntl qw(:flock :seek);</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV># abre arquivo.</DIV><DIV>open my $fh, "<", $filename or die $!;</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV># aciona lock no filehandle. vai esperar aqui até outra instância do programa liberar o arquivo.</DIV><DIV>flock($fh, LOCK_EX);</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV># move cursor para o final do arquivo</DIV><DIV>seek($fh, 0, SEEK_END);</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV># imprime algo</DIV><DIV>print $fh "Some text!\n";</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV># desbloqueia o filehandle</DIV><DIV>flock($fh, LOCK_UN);</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV># fecha o arquivo</DIV><DIV>close $fh or warn $!;</DIV><DIV></code></DIV><DIV><BR class="khtml-block-placeholder"></DIV></DIV></DIV><DIV>Lembre-se que flock() atua em filehandles. Lembre-se também que flock() funciona apenas com outros programas que utilizam flock(), isto é, se um outro programa for interagir com este arquivo e não utilizar flock(), provavelmente irá ocasionar problemas.</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>Alguns outros pontos a considerar:</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>- Labels são, no senso comum, nomeados com letras MAIUSCULAS pois ajudam a distinguir de funções;</DIV><DIV>- Utilize File::Spec para tratar com caminhos de arquivos;</DIV><DIV>- Apesar de utilizarmos labels, 'goto's são feios :-P Utilize escopos para isso, como no exemplo que transcrevi;</DIV><DIV>- Não é necessário utilizar as rotinas sys* a menos que você saiba o que está fazendo :-);</DIV><DIV>- Utilize scalars para armazenar a referência de arquivos abertos com open, ao invés de barewords.</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>Acho que é só, e espero que ajude.</DIV><DIV><DIV> <SPAN class="Apple-style-span" style="border-collapse: separate; border-spacing: 0px 0px; color: rgb(0, 0, 0); font-family: Lucida Grande; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; text-align: auto; -khtml-text-decorations-in-effect: none; text-indent: 0px; -apple-text-size-adjust: auto; text-transform: none; orphans: 2; white-space: normal; widows: 2; word-spacing: 0px; "><DIV>--</DIV><DIV>Igor Sutton</DIV><DIV><A href="mailto:igor.sutton@gmail.com">igor.sutton@gmail.com</A></DIV><DIV><BR class="khtml-block-placeholder"></DIV><BR class="Apple-interchange-newline"></SPAN> </DIV><BR></DIV></BODY></HTML>