Você ignorou meu comentário :-(<br><br>Olhe direito para a sua função... <span style="text-decoration: underline;">Leia o que você escreveu, e não o que você quis escrever</span> [1]<br><br>A função excluir_usuário está lendo, uma por uma, todas as linhas do arquivo, até chegar no final do arquivo. Quando ele chega no final do arquivo, ele não volta automagicamente pro começo do mesmo.
<br><br>Quando você chama a função pela segunda vez, o filehandle continua apontando para o final do arquivo, não havendo mais linhas para ler.<br><br>Sim, você poderia "rebobinar" o cursor pro começo do arquivo, mas se você prestar atenção no que está acontecendo, vai ver que não vai dar certo. (mas se não conseguir ver o problema que isso causaria, faça seek(BACKUP,0,0) pra ver por si mesmo, hehehe).
<br><br>Espero que agora esteja mais claro :-)<br><br>[]s<br><br>Wendel<br><br>[1] - Pelo menos pra mim (e pra algumas pessoas) isso é o que mais atrapalha na hora de encontrar
bugs - só enxergarmos o que quisemos escrever, não o que de fato foi
escrito. Por isso que às vezes, depois de horas quebrando a cabeça, um amigo pode chegar, bater o olho no seu código e de cara apontar onde tá o problema :-)<br><br><div><span class="gmail_quote">On 9/5/07, <b class="gmail_sendername">
Rafael Lebrão Martins</b> <<a href="mailto:rafamv1@ig.com.br">rafamv1@ig.com.br</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;">
<br><br>Oi Igor, testei aqui e funcionou corretamente. Obrigado.. Havia algo errado<br>no "código" que eu escrevi?<br><br>sub excluir_usuario {<br>my $name = shift;<br>foreach (<BACKUP>) {<br>next if $_ =~ /^$name$/;
<br>print ARQUIVO $_;<br> }<br> }<br><br>Com isso ai ele não deveria excluir um por um??<br><br><br><br>_______________________________________________<br>Cascavel-pm mailing list<br><a href="mailto:Cascavel-pm@pm.org">
Cascavel-pm@pm.org</a><br><a href="http://mail.pm.org/mailman/listinfo/cascavel-pm">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br></blockquote></div><br><br>