<html>
<head>
<style>
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
FONT-SIZE: 10pt;
FONT-FAMILY:Tahoma
}
</style>
</head>
<body class='hmmessage'>> To: cascavel-pm@pm.org<br>> From: rafamv1@ig.com.br<br>> <br>> Boa tarde, pessoal. Abaixo está o trecho de um "código" que estou escrevendo <br>> para apagar vários valores em um arquivo de texto. Quando digito os nomes <br>> que serão removidos e teclo enter, todos os dados do arquivo são apagados. <br>> Estou utilizando a sub "excluir_nomes" de forma incorreta?! <br>> <br>> my $name; <br>> foreach $name(@nomes) { <br>> excluir_nomes($name); <br>> } <br>> copy($file, $backup); <br>> open( ARQUIVO, '>', "$file" ); <br>> open( BACKUP, '<', "$backup" ); <br>> <br>> sub excluir_nomes { <br>> foreach (<BACKUP>) { <br>> next if $_ =~ /^$name$/; <br>> print ARQUIVO $_; <br>> } <br>> } <br>> close (ARQUIVO); <br>> close (BACKUP); <br><br>Não executei, mas parece correto.<br><br>Talvez você ache bastante conveniente usar uma interface "tie" para seu programa. Você recria a estrutura do arquivo numa estrutura de dados do Perl, e ao remover uma linha desse estrutura, automaticamente o arquivo será atualizado.<br><br><br>Seu programa também não está exatamente escrito para ter boa performance, mas se isso não é um problema, está correto. :-)<br><br>[]'s<br>Alceu<br><br /><hr />Invite your mail contacts to join your friends list with Windows Live Spaces. It's easy! <a href='http://spaces.live.com/spacesapi.aspx?wx_action=create&wx_url=/friends.aspx&mkt=en-us' target='_new'>Try it!</a></body>
</html>