[Cascavel-pm] Apagar nomes em arquivo.

[Alceu Rodrigues de Freitas Junior]

> To: cascavel-pm em pm.org
> From: rafamv1 em ig.com.br
> 
> Boa tarde, pessoal. Abaixo está o trecho de um "código" que estou escrevendo 
> para apagar vários valores em um arquivo de texto. Quando digito os nomes 
> que serão removidos e teclo enter, todos os dados do arquivo são apagados. 
> Estou utilizando a sub "excluir_nomes" de forma incorreta?! 
> 
> my $name; 
> foreach $name(@nomes) { 
> excluir_nomes($name); 
> } 
> copy($file, $backup); 
> open( ARQUIVO, '>', "$file" ); 
> open( BACKUP, '<', "$backup" ); 
> 
> sub excluir_nomes { 
> foreach (<BACKUP>) { 
> next if $_ =~ /^$name$/; 
> print ARQUIVO $_; 
>    } 
> } 
> close (ARQUIVO); 
> close (BACKUP); 

Não executei, mas parece correto.

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.


Seu programa também não está exatamente escrito para ter boa performance, mas se isso não é um problema, está correto. :-)

[]'s
Alceu

_________________________________________________________________
Invite your mail contacts to join your friends list with Windows Live Spaces. It's easy!
http://spaces.live.com/spacesapi.aspx?wx_action=create&wx_url=/friends.aspx&mkt=en-us
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070904/2a07941c/attachment.html