Perl: Laço através de um arquivo e substituto

Question

Eu simplesmente quero ler em um arquivo de log, faça uma pesquisa e substituição, e, em seguida, escrever as alterações a esse mesmo arquivo de log.

O que é a melhor maneira prática de fazer isso em Perl?

Answer 1

Eu normalmente código se um um forro para isso:

perl -i -pe 's/some/thing/' log.file

Aqui

Answer 2

Isso é muitas vezes feito com um one-liner:

perl -pi.bak -e "s/find/replace/g" <file>

Observe que a parte -i.bak - isso cria um arquivo de backup com o .bak extensão. Se você quiser jogar sem uma rede você pode fazer isso para substituir o arquivo existente sem uma cópia de segurança:

perl -pi -e "s/find/replace/g" <file>

Answer 3

ou você pode usar sed (eu sei ... você perguntou sobre perl):

sed -i 's/find/replace/g' <file>