<DIV>hummmm, aproveitando que o senhor está melhor hoje... quero tirar uma dúvida no teu código.</DIV>
<DIV>> </DIV>
<DIV>> FILE: while ($arquivo = <*.TXT>)</DIV>
<DIV>> {</DIV>
<DIV>> ....</DIV>
<DIV>> LINE: while ( $linha=<ARQ_IN> )</DIV>
<DIV>> {</DIV>
<DIV>> # para pular uma linha, baseado numa condição:</DIV>
<DIV>> next LINE if $condicao;</DIV>
<DIV>> # para pular de arquivo, baseado em outra condição:</DIV>
<DIV>> next FILE if $outra_condicao;</DIV>
<DIV>> }</DIV>
<DIV>> }</DIV>
<DIV>> </DIV>
<DIV>O "Best Practice Perl" recomenda a utilização destes marcadores 'nome:' para melhorar a leitura do código, mas aí eu fiquei pensando se isto não seria um problema também, se é que melhora a leitura do código. Afinal, desda maneira eu posso fazer uma função migrar o fluxo para outra função de maneira abrutalhado (também conhecido de maneira "champs" :) ).</DIV>
<DIV> </DIV>
<DIV>Baseado nisto, não é melhor escrever desta maneira (não precisa me lembrar do '<FONT size=2>There's <B>More Than One Way To Do</B> It') :</FONT></DIV>
<DIV>
<DIV>> </DIV>
<DIV>> while ( $arquivo = <*.TXT> )</DIV>
<DIV>> {</DIV>
<DIV>> ....</DIV>
<DIV>> while ( $linha=<ARQ_IN> )</DIV>
<DIV>> {</DIV>
<DIV>> # para pular uma linha, baseado numa condição:</DIV>
<DIV>> next if $condicao;</DIV>
<DIV>> # para pular de arquivo, baseado em outra condição:</DIV>
<DIV>> last if $outra_condicao;</DIV>
<DIV>> }</DIV>
<DIV>> # aí o fluxo do while continua aqui !!!!!!!!!!!!!!!!!!!</DIV>
<DIV>> }</DIV>
<DIV>> </DIV>
<DIV> </DIV>
<DIV>That's it !!!</DIV>
<DIV> </DIV>
<DIV>Solli M. Honório</DIV></DIV>