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

发布时间：2020-12-15 23:27:00 所属栏目：大数据来源：网络整理

导读：我在Perl脚本中调用perl单行程. 单行的意图是从文件中删除尾随空格. 在主perl脚本里面： `perl -pi -e 's/s+$//' tape.txt`; 现在它给我一个错误替换替换未在-e第2行终止. 哪里出错了？解决方法反引号语法调用shell,并且在调用时,shell假定它应该插入传递

我在Perl脚本中调用perl单行程.

单行的意图是从文件中删除尾随空格.

在主perl脚本里面：

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

现在它给我一个错误替换替换未在-e第2行终止.

哪里出错了？

解决方法

反引号语法调用shell,并且在调用时,shell假定它应该插入传递的字符串.

更清晰的语法可能是：

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

由于您没有捕获命令的输出,因此使用反引号或qx代替系统不是问题.

另外,添加-l开关autochomps读取每一行,然后添加换行符—可能是你想要的.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!