`print readline` 与 `$line = readline; 有何不同？打印 $line`?

Question

我编写了一个脚本，在匹配后打印当前行和后续行，但是，我注意到readline 返回值的两种使用方式之间存在差异。

这按预期工作：

$ echo $'H1\na\nb\nH2\na\nb' | perl -ne 'if (/^H/) { print; print $line = readline }'
H1
a
H2
a

但是，这不是：

$ echo $'H1\na\nb\nH2\na\nb' | perl -ne 'if (/^H/) { print; print readline }'
H1
a
b
H2
a
b

相反，它会打印所有行。为什么？

Answer 1

print 接受一个列表参数，并将readline() 放入列表上下文中。因此它耗尽了所有的行。当您将标量赋值与 $line = 一起使用时，它处于标量上下文中，并且只会读取 1 行。

阅读更多关于上下文here。

Answer 2

readline 被调用的上下文不同。

在$line = readline 中，= 是标量赋值运算符，它在标量上下文中计算其操作数。在标量上下文中，readline 返回一行。

另一方面，

print 接受它在列表上下文中求值的表达式。在列表上下文中，readline 返回所有剩余的行。

等效：^[1]

• $line = readline; print $line;
• print $line = readline;
• print scalar(readline);

---

1. 如果$line 不神奇。对$line的影响除外。