perl – 为什么“print / regex /？打印a：打印b在每行前“放”1

发布时间：2020-12-16 06:11:36 所属栏目：大数据来源：网络整理

导读：当我运行下面的Perl单行程序时,它会在每行前面打印1,这是我不想要的.它应该做的就是与root匹配的注释行. $cat /etc/passwd | perl -ne 'print /root/ ? print "#$_" : print $_'1daemon:x:1:1::/:1bin:x:2:2::/usr/bin:#root:x:0:0:Super-User:/root:/usr/b

当我运行下面的Perl单行程序时,它会在每行前面打印1,这是我不想要的.它应该做的就是与root匹配的注释行.

$cat /etc/passwd | perl -ne 'print /root/ ? print "#$_" : print $_'
1daemon:x:1:1::/:
1bin:x:2:2::/usr/bin:
#root:x:0:0:Super-User:/root:/usr/bin/bash
1sys:x:3:3::/:

解决方法

您正在打印print的返回值,该值已成功,因此计算结果为1.

我建议将代码更改为：

perl -pe '$_ = "#$_" if /root/' /etc/passwd

这里我使用-p开关,因此始终打印$_.当/ root /匹配时,在行开始之前添加#.

如果要显式执行打印,请使用以下命令：

perl -ne 'print /root/ ? "#$_" : $_' /etc/passwd

（编辑：李大同）

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