[SP-pm] Geração de Arquivos

[Bruno Buss]

Eu trocaria o foreach por isso:

my ($f) = File::Util->new();
$f->write_file(
'file'    => "cbq-000$i.estacao$i-in",
'mode'    => 'append',
'content' => join('\n', @lista) . '\n',
);

2010/8/6 "Flávio R. Lopes" <flavio.lopes at links.inf.br>

> Boa tarde pessoal.
>
> 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".
>
> 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.
>
> Aqui está ele: http://gist.github.com/511883
>
> Obs: Esta versão que está no github é uma versão simplificada, pois ainda
> estarei modificando/implementando algumas coisas nele.
>
> Abraço,
> Flávio
>
> PS.: Thanks to Thiago Glauco for some tips!
> _______________________________________________
> SaoPaulo-pm mailing list
> SaoPaulo-pm at pm.org
> http://mail.pm.org/mailman/listinfo/saopaulo-pm
>



-- 
Bruno C. Buss
http://brunobuss.wordpress.com/
http://www.dcc.ufrj.br/~brunobuss/
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20100806/bf1a067f/attachment-0002.html>