[perl] Como apagar linha?

[Francisco Lopes]

Como fazer a a��o do 'if' em perl? =)

Tenho como exemplo:

open(ARQ,">>$file");
@arq = <ARQ>;
foreach $linha (@arq) {
    chop($linha);
    ($var1,$var2) = split(/\|/,$linha);
    if ($var2 eq "bl� bl�") {
        #se $var2 for igual a 'bl� bl�' apague est� linha
    }
}
close(ARQ);

Agrade�o a qualquer ajuda.

_______________________
Francisco Lopes
UIN: 17364815
Email: [EMAIL PROTECTED]




http://www.mrweb.com.br/perl/
=======================================
>>No site da lista, voce tera tudo sobre PERL,
>>LINUX, PHP, ASP e informacoes, cadastramento
>>e descadastramento da Lista.
=======================================