Есть ли способ сделать Perl -i не клоббер символические ссылки?

Мой друг указывает, что если вы делаете:

perl -pi.bak -e 's/foo/bar/' somefile

когда «somefile» на самом деле является символической ссылкой, perl делает то, что говорят документы:

Это делается путем переименования входного файла, открытия выходного файла с исходным именем и выбора этого выходного файла в качестве операторов по умолчанию для print (). Расширение, если оно указано, используется для изменения имени старого файла, чтобы сделать резервную копию [...]

В результате получается новая символическая ссылка "somefile.bak", указывающая на неизмененный реальный файл, и новый, измененный обычный файл "somefile" с изменениями.

Во многих случаях следование символической ссылке было бы желательным поведением (даже если оно оставляет правильное расположение файла .bak неоднозначным). Есть ли простой способ сделать это, кроме проверки символических ссылок в оболочке и надлежащего обращения с регистром?

( sedделает то же самое, для чего это стоит.)

Интересно, поможет ли в этом случае небольшая spongeуниверсальная утилита («впитать стандартный ввод и записать в файл») из moreutils и будет ли она следовать символической ссылке.

Автор описывает sponge так:

Он решает проблему редактирования файлов на месте с помощью инструментов Unix, а именно: если вы просто перенаправляете вывод в файл, который пытаетесь редактировать, то перенаправление вступает в силу (забивая содержимое файла) перед первой командой в конвейере. приступает к чтению из файла. Переключатели, как sed -iи perl -iобходят это, но не каждая команда, которую вы, возможно, захотите использовать в конвейере, имеет такую ​​опцию, и вы все равно не сможете использовать этот подход с многокомпонентными конвейерами.

Я обычно использую губку немного так:

sed '...' file | grep '...' | sponge file

Если вы знаете, что somefileэто символическая ссылка, вы можете явно указать полный путь к файлу с помощью следующего:

perl -pi.bak -e 's/foo/bar/' $(readlink somefile)

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

Если вы имеете дело с одним файлом, команда будет выглядеть следующим образом:

perl -i -pe'...' -- "$qfn"

Решение тогда следующее:

perl -i -pe'...' -- "$( readlink -e -- "$qfn" )"

Это обрабатывает как символические, так и не символические ссылки.

Если вы имеете дело с произвольно большим количеством файлов, команда будет выглядеть следующим образом:

... | xargs -r perl -i -pe'...' --

Решение тогда следующее:

... | xargs -r readlink -ze -- | xargs -r0 perl -i -pe'...' --

Это обрабатывает как символические, так и не символические ссылки.

Caveat readlink - это не стандартная команда, поэтому ее присутствие, аргументы и функциональность зависят от системы, поэтому обязательно ознакомьтесь с документацией. Например, некоторые реализации имеют -f(что вы также можете использовать здесь), но нет -e, некоторые тоже . busybox«S readlink -fведет себя как GNU readlink -e. И у некоторых систем есть realpathкоманда, вместо readlinkкоторой обычно ведет себя как GNU readlink -f.

Помните, что в GNU readlink -eсимволические ссылки, которые не могут быть разрешены в существующий файл, удаляются без уведомления.