[Cascavel-pm] Apagar nomes em arquivo.
Rafael Lebrão Martins
rafamv1 em ig.com.br
Quarta Setembro 5 05:17:14 PDT 2007
># 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??
Mais detalhes sobre a lista de discussão Cascavel-pm