Perl one-liner 从文件中删除尾随空格

Question

我在 Perl 脚本中调用 perl one-liner。

one-liner 的目的是从文件中删除尾随空格。

在主要的 perl 脚本中:

`perl -pi -e 's/\s+$//' tape.txt`;

现在它给我一个错误 Substitution replacement not terminated at -e line 2.
哪里出错了？

Answer 1

反引号语法调用一个 shell，当被调用时，shell 假定它应该插入传递的字符串。

更简洁的语法可能是:

system('perl -pli -e "s/\s*$//" tape.txt');

由于您没有捕获命令的输出，因此使用反引号或 qx 代替 system 不是问题。

同样，添加 -l 开关会自动读取 和 的每一行，然后添加一个换行符——可能是你想要的。