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.&nbsp; (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> &lt;<a href="mailto:cromo.jml@gmail.com">cromo.jml@gmail.com</a>&gt; 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, &#39;&lt;&#39;, &quot;$backupname&quot; );<br>open(my $file, &#39;&gt;&#39;, &quot;$filename&quot; );<br><br>foreach my $name(@nomes) {<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; excluir_nomes($name);
<br>}<br><br>sub excluir_nomes {<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; my $name = shift;<br></span><span class="q">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; while (&lt;$backup&gt;) {<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; next if $_ =~ /^$name$/;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; print $file $_;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; }<br>}<br>
close($file);<br>close ($backup);
<br></span></blockquote></div><br>