<DIV>hummmm, aproveitando que o senhor está melhor hoje... quero tirar uma dúvida no teu código.</DIV>
<DIV>&gt; </DIV>
<DIV>&gt; FILE: while ($arquivo = &lt;*.TXT&gt;)</DIV>
<DIV>&gt; {</DIV>
<DIV>&gt;&nbsp;&nbsp;&nbsp;&nbsp; ....</DIV>
<DIV>&gt;&nbsp;&nbsp;&nbsp;&nbsp; LINE: while ( $linha=<ARQ_IN> )</DIV>
<DIV>&gt;&nbsp;&nbsp;&nbsp; {</DIV>
<DIV>&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; # para pular uma linha, baseado numa condição:</DIV>
<DIV>&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; next LINE if $condicao;</DIV>
<DIV>&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; # para pular de arquivo, baseado em outra condição:</DIV>
<DIV>&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; next FILE if $outra_condicao;</DIV>
<DIV>&gt;&nbsp;&nbsp;&nbsp; }</DIV>
<DIV>&gt;&nbsp;}</DIV>
<DIV>&gt; </DIV>
<DIV>O&nbsp;"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>&nbsp;</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>&gt; </DIV>
<DIV>&gt; while ( $arquivo = &lt;*.TXT&gt; )</DIV>
<DIV>&gt; {</DIV>
<DIV>&gt;&nbsp;&nbsp;&nbsp;&nbsp; ....</DIV>
<DIV>&gt;&nbsp;&nbsp;&nbsp;&nbsp; while ( $linha=<ARQ_IN> )</DIV>
<DIV>&gt;&nbsp;&nbsp;&nbsp; {</DIV>
<DIV>&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; # para pular uma linha, baseado numa condição:</DIV>
<DIV>&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; next&nbsp;if $condicao;</DIV>
<DIV>&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; # para pular de arquivo, baseado em outra condição:</DIV>
<DIV>&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;last if $outra_condicao;</DIV>
<DIV>&gt;&nbsp;&nbsp;&nbsp; }</DIV>
<DIV>&gt;&nbsp;&nbsp;&nbsp; # aí o fluxo do while continua aqui !!!!!!!!!!!!!!!!!!!</DIV>
<DIV>&gt;&nbsp;}</DIV>
<DIV>&gt; </DIV>
<DIV>&nbsp;</DIV>
<DIV>That's it !!!</DIV>
<DIV>&nbsp;</DIV>
<DIV>Solli M. Honório</DIV></DIV>