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

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>