Eu trocaria o foreach por isso:<div><br><div><div>my ($f) = File::Util->new();</div><div>$f->write_file(</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>'file' => "cbq-000$i.estacao$i-in",</div>
<div><span class="Apple-tab-span" style="white-space:pre"> </span>'mode' => 'append',</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>'content' => join('\n', @lista) . '\n',</div>
<div>);</div><br><div class="gmail_quote">2010/8/6 "Flávio R. Lopes" <span dir="ltr"><<a href="mailto:flavio.lopes@links.inf.br">flavio.lopes@links.inf.br</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
Boa tarde pessoal.<br>
<br>
Fiz um progaminha para gerar arquivos que contém um conteúdo específico. Estes arquivos servirão para fazer controle de banda com o "CBQ".<br>
<br>
Gostaria que se possível vocês dessem uma olhada e me sugerissem o que poderia ser melhorado nele, pois acho que poderia ser feito com menos "Loops" ou com menos código.<br>
<br>
Aqui está ele: <a href="http://gist.github.com/511883" target="_blank">http://gist.github.com/511883</a><br>
<br>
Obs: Esta versão que está no github é uma versão simplificada, pois ainda estarei modificando/implementando algumas coisas nele.<br>
<br>
Abraço,<br>
Flávio<br>
<br>
PS.: Thanks to Thiago Glauco for some tips!<br>
_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org" target="_blank">SaoPaulo-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br>
</blockquote></div><br><br clear="all"><br>-- <br>Bruno C. Buss<br><a href="http://brunobuss.wordpress.com/">http://brunobuss.wordpress.com/</a><br><a href="http://www.dcc.ufrj.br/~brunobuss/">http://www.dcc.ufrj.br/~brunobuss/</a><br>
</div></div>