为什么’perl -i’没有就地更改文件？

我的设置：perl 5.20.2

正如预期的那样,使用以下代码就地更改文件：

echo abc > test.txt
perl -i -ne 's/b/x/;print' test.txt

但是在这里,输出被打印到stdout并且文件被清空.为什么？

echo abc > test.txt
perl -i -ne 's/b/x/;push@a,$_;END{print for @a}' test.txt

解决方法

END块不是-i -n魔法的一部分.

-n包含一个隐含的while(<>)围绕(大部分)你的代码,-i导致由<>处理的文件被覆盖.

但是,如in the docs所述,BEGIN和END块存在于隐式循环之外,并且不受-i的影响.什么都没有导致你的打印到stdout任何地方.