- script PERL ajuda
+ Responder ao Tópico
-
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:
-
Re: script PERL ajuda
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