Beeem melhor (principalmente os open()s).... mas ainda assim, não tá fazendo a coisa certa...<br><br>Note que, da primeira vez que você chamar excluir_nomes, você vai percorrer todas as linhas do arquivo backup.<br><br>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.
<br><br>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)<br><br>[]s<br>
<br>Wendel<br><br><div><span class="gmail_quote">On 9/4/07, <b class="gmail_sendername">Márcio Vitor</b> <<a href="mailto:cromo.jml@gmail.com">cromo.jml@gmail.com</a>> wrote:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
MAL!!<br>Então melhor assim né ?<span class="q"><br><br>open(my $backup, '<', "$backupname" );<br>open(my $file, '>', "$filename" );<br><br>foreach my $name(@nomes) {<br> excluir_nomes($name);
<br>}<br><br>sub excluir_nomes {<br> my $name = shift;<br></span><span class="q"> while (<$backup>) {<br> next if $_ =~ /^$name$/;<br> print $file $_;<br> }<br>}<br>
close($file);<br>close ($backup);
<br></span></blockquote></div><br>