tenho um banco de dados no arquivo X.DAT
################ ARQUIVO X.DAT
0|teste|000
1|teste|001
2|teste|002
##############################

e preciso deletar a linha INTEIRA se '@line[0]' for igual '1', entao:

if(@line[0] eq "1"){
DELETAR @line
}


para que o arquivo fique assim:
################ ARQUIVO X.DAT  - etapa final(a desejada)
0|teste|000
2|teste|002
##############################


COMO FA�O ISSO???
alguem sabe usar o comando 'sed'??? tentei dar um 'man sed' mais n�o
consegui us�-lo

seria:
system('sed 1d x.dat'); 
?????

ALGUEM ME AJUDA POR FAVOR

grato,
fernando

-------------------------------
  Luiz Fernando
  [EMAIL PROTECTED]

  http://www.3lj.com.br

  +55 (48) 322-0699 - 3lj
  +55 (48) 991-6697 - Celular
  +55 (48) 244-0994 - Casa
-------------------------------
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.
�������������

Responder a