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

前端之家收集整理的这篇文章主要介绍了perl – 为什么“print / regex /?打印a:打印b在每行前“放”1“?前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
当我运行下面的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

猜你在找的Perl相关文章