Perl + добавить WORD в конце последней строки в файле

Question

Я использую следующую строку perl в одну строку, чтобы добавить WORD в конец последней строки в файле

     perl -p -i -e 's/$/WORD/;' file

Но это добавляет СЛОВО в каждой строке

Как исправить синтаксис perl, чтобы добавить слово только в последней строке файла

пример

  more file

  AAAAA BBB
  WWWWW
  EEEEE WORD

Answer 1

Вы должны определить, что вы достигли конца файла, используя eof:

perl -p -i -e 'eof && s/$/WORD/;'  file

Answer 2

Вот эквивалент использования sed:

sed -ie '$s/$/WORD/' file

Answer 3

Просто добавьте флаг -0 :

perl -0pie 's/$/WORD/' file

Кстати, я бы никогда не использовал -i без дополнительного расширения. Если ваш Perl не сделает то, что вы хотели, ваш вклад будет потерян. ; это не терминатор операторов в Perl, а разделитель операторов.

perl -i.orig -0pe 's/$/WORD/' file

Еще одна удобная идиома для тестирования:

perl -0pe 's/$/WORD/' file | diff file -