Perl: перебрать файл и заменить

Question

Я просто хочу прочитать в файле журнала, выполнить поиск и замену, а затем записать изменения в тот же файл журнала.

Какой лучший способ сделать это в Perl?

Answer 1

Я обычно кодирую одну строку для этого:

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

См. Здесь

Answer 2

Это часто делается с помощью одной строки:

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

Обратите внимание на часть -i.bak - при этом создается файл резервной копии с расширением .bak. Если вы хотите играть без сети, вы можете сделать это, чтобы перезаписать существующий файл без резервной копии:

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

Answer 3

или вы можете использовать sed (я знаю ... вы спрашивали о perl):

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