有没有办法使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符号链接的事实，则可以使用以下内容显式提供file的完整路径：

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'...' --

这同时处理符号链接和非符号链接。

警告 readlink不是标准命令，因此它的存在，其参数和功能因系统而异，因此请务必检查您的文档。例如，某些实现具有-f（您也可以在此处使用），但没有-e，有些都不具有。busybox的readlink -f行为类似于GNU readlink -e。并且某些系统具有realpath命令，而不是通readlink常表现为GNU 的命令readlink -f。

请注意，使用GNU时readlink -e，无法解析为现有文件的符号链接会被静默删除。