[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