除非我使用备份扩展名指定它们，否则我无法就地编辑在 ActivePerl 下运行的 Perl 单行代码：
C:\> perl -i -ape "splice (@F, 2, 0, q(inserted text)); $_ = qq(@F\n);" file1.txt
Can't do inplace edit without backup.
相同的命令可以处理-i.bak或-i.orig处理，但在此过程中会创建不需要的备份文件。
有没有解决的办法？
问问题
13240 次
2 回答
36
这是 Windows/MS-DOS 的限制。根据perldiag：
如果您尝试从已删除（但仍打开）的文件中读取，您在 MS-DOS 之类的系统上会感到困惑。你必须说-i.bak，或类似的。
Perl 的-i实现使其file1.txt在保持打开句柄的同时将其删除，然后重新创建具有相同名称的文件。这允许您“读取”file1.txt，即使它已被删除并正在重新创建。不幸的是，Windows/MS-DOS 不允许您删除附加了打开句柄的文件，因此这种机制不起作用。
最好的办法是使用-i.bak然后删除备份文件。这至少为您提供了一些保护 - 例如，如果perl以非零退出代码退出，您可以选择不删除备份。就像是：
perl -i.bak -ape "splice...." file1.txt && del file1.bak
于 2010-04-11T11:55:42.567 回答
0
具有递归修改和删除的示例均由 find 完成。适用于 Windows 上的例如 mingw git bash。
$ find . -name "*.xml" -print0 | xargs -0 perl -p -i.bak -e 's#\s*<property name="blah" value="false" />\s*##g'
$ find . -name "*.bak" -print0 | xargs -0 rm
在 find/xargs 之间传递二进制终止值以处理空格。不寻常的 s/ 前缀，以避免在搜索词中破坏 xml。这假设您开始时没有任何.bak文件。
于 2014-11-11T17:50:39.123 回答