perl - 为什么我的 -p one-liner 打印出我想跳过的行？

Question

我有一个名为 file 的文件，包含三行:

line one
line two
line three

当我这样做时:

perl -ne 'print if /one/' file

我得到这个输出:

line one

当我尝试这个时:

perl -pe 'next unless /one/' file

输出是:

line one
line two
line tree

我期望两个单行的输出相同。我的期望是错误的还是其他错误？

Answer 1

你的期望是错误的。 -p switch 在您的代码周围放置以下循环:

LINE:
  while (<>) {
      ...             # your program goes here
  } continue {
      print or die "-p destination: $!\n";
  }

如果您阅读 the documentation for next ， 它说:

Note that if there were a continue block on the above, it would get executed even on discarded lines.

next实际上跳转到continue block (如果有的话)，在它回到循环的条件之前。

你可以做类似的事情

perl -pe '$_ = "" unless /one/' file