script PERL ajuda

:mrgreen: :mrgreen:
E ai pessoal?! BLZ??

Olha só, estou precisando de uma ajuda da comunidade PERL. Preciso fazer um script que faça a simples leitura e substituição de alguns caracteries em um arquivo. Funciona assim, segue um exemplo do arquivo que tenho:

aaaa|bbbb|cccc|dddd|eeee
aaaa|bbbb|cccc|dddd|eeee
aaaa|bbbb|cccc|dddd|eeee
aaaa|bbbb|cccc|dddd|eeee
aaaa|bbbb|cccc|dddd|eeee

Ai, quero que o script apague os |bbbb . Ficando assim:

aaaa|cccc|dddd|eeee
aaaa|cccc|dddd|eeee
aaaa|cccc|dddd|eeee
aaaa|cccc|dddd|eeee
aaaa|cccc|dddd|eeee

Entenderam? Andei procurando pelo gooooooogle e aqui no under, mas nao encontrei algo que me ajudasse muito. O lance é que tenho um arquivo texto de 1.9GB e tenho de arruma-lo. Ai, só com scripts mesmo. Alguém pode me ajudar??! VALEU!! :roll: :roll: :roll:

Aconselho utilizar sed ao inves de perl, vai te poupar o conhecimento sobre a linguagem.
Além do sed ser feito pra isso.

No teu exemplo, supondo que esteja no arquivo exemplo.txt:

sed -e "s/\(.*\)|bbbb\(|.*\)/\1\2/" exemplo.txt

Tudo que você precisa saber é sobre Expressoes Regulares.
Existem bons HOWTOs por ai

Abracos