[Cascavel-pm] Apagar nomes em arquivo.
Wendel Scardua
wendelscardua em gmail.com
Terça Setembro 4 13:53:18 PDT 2007
Beeem melhor (principalmente os open()s).... mas ainda assim, não tá fazendo
a coisa certa...
Note que, da primeira vez que você chamar excluir_nomes, você vai percorrer
todas as linhas do arquivo backup.
Quando você chama excluir_nomes de novo, não vai ter mais linhas pra ler,
então você só vai ter excluido o primeiro nome.
O certo seria você olhar pra cada linha de backup, e decidir de se ela vive
ou morre com base na lista de todos os nomes. (ou abrir e fechar os
arquivos dentro da função, o que não é muito eficiente)
[]s
Wendel
On 9/4/07, Márcio Vitor <cromo.jml em gmail.com> wrote:
>
> MAL!!
> Então melhor assim né ?
>
> open(my $backup, '<', "$backupname" );
> open(my $file, '>', "$filename" );
>
> foreach my $name(@nomes) {
> excluir_nomes($name);
> }
>
> sub excluir_nomes {
> my $name = shift;
> while (<$backup>) {
> next if $_ =~ /^$name$/;
> print $file $_;
> }
> }
> close($file);
> close ($backup);
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070904/d5e55d0e/attachment.html
Mais detalhes sobre a lista de discussão Cascavel-pm