[Cascavel-pm] Apagar nomes em arquivo.

[Rafael Lebrão Martins]

># abre arquivos utilizando variaveis lexicas 
>open( my $in, '<', "in.txt" ) or die "Problemas ao 
>abrir in.txt: $!"; 
>open( my $out, '>', "out.txt" ) or die "Problemas ao 
>abrir out.txt: $!"; 
> 
># nomes que queremos excluir 
>my @names = qw(larry damian randal); 
> 
># cria expressao regular com os nomes declarados 
>my $names_re = sprintf "(?:%s)", join( '|', @names ); 
> 
># itera arquivo de entrada 
>while (<$in>) { 
> chomp; 
> next if m{$names_re}; 
> print $out $_, $/; 
>} 
> 
># fecha arquivos 
>close($out); 
>close($in); 

Oi Igor, testei aqui e funcionou corretamente. Obrigado.. Havia algo errado 
no "código" que eu escrevi? 

sub excluir_usuario { 
my $name = shift; 
foreach (<BACKUP>) { 
next if $_ =~ /^$name$/; 
print ARQUIVO $_; 
   } 
 } 

Com isso ai ele não deveria excluir um por um??