[SP-pm] Geração de Arquivos

[Gabriel Vieira]

2010/8/6 Bruno Buss <bruno.buss em gmail.com>:
> 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 em 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 em pm.org
>> http://mail.pm.org/mailman/listinfo/saopaulo-pm
>
>
>
> --
> Bruno C. Buss
> http://brunobuss.wordpress.com/
> http://www.dcc.ufrj.br/~brunobuss/
>
> _______________________________________________
> SaoPaulo-pm mailing list
> SaoPaulo-pm em pm.org
> http://mail.pm.org/mailman/listinfo/saopaulo-pm
>


Isso da um golf 8-)


-- 
Gabriel Vieira