perl: как сохранить только отредактированные изменения из отредактированного файла (без его удаления)?

Question

Я редактирую файл из STDIN: $ perl -wlne 'if ((/start here/ .. /end here/)&&(/line to change/)) { print s/match/CHANGE/r }' somefile.txt

Я добавил опцию -i, но остались только изменения в файле (одна строка), все остальное было удалено. Так как сохранить только изменение из регулярного выражения в line to change, но не удалить все остальное?

Answer 1

Это то, что нужно:

perl -wlpe 's/match/CHANGE/
              if (/start here/ .. /end here/)
                  && /line to change/' somefile.txt

-p заботится о печати. ​​

Как только вы довольны результатом, вы можете добавить -i для редактирования на месте .