perl - 为什么 "print/regex/? print a : print b"将 "1"放在每行之前？

Question

当我运行下面的 Perl one-liner 时，它会打印 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::/:

Answer 1

您正在打印 print 的返回值，这是成功的所以评估为 1 .

我建议将您的代码更改为:

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

我在这里使用 -p切换，以便 $_总是打印。 A #当 /root/ 时在行首之前添加火柴。

如果你想做 print明确地，使用这个:

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