在Perl中，“while（<FH>）”和“if（<FH>）”有什么区别？

Question

这是有效的代码：

这个有效：

while (<CONF>) {
  print $_;
}

但是这个不行：-

if (<CONF>) {
  print $_;
}

出现未初始化值的错误，请问我漏掉了什么？

- owagh

---

好的：“你最喜欢的是哪个值？”这是你的任务开始的地方，请不要被扔下桥。 - user166390

我问这个问题的原因是实际上更像是：“在(<FH>)后面的魔法为什么会给$_赋予有意义的值？” 我会从perlsyn(关于while)开始查找，如果没有找到，就去看perlvar(关于$_)。 - user166390

你所寻找的文档在perlop中。 - mob

有点相关 - https://dev59.com/5m445IYBdhLWcg3wBVrz。Eric Strom演示了一种技巧，可以让 if (<HANDLE>)（以及 unless <HANDLE> 和 until <HANDLE>）自动分配给 $_，如果这是你想要的话。 - mob

Answer 1

while (<CONF>)

被重写为

while (defined($_ = <CONF>))

所以，您可能需要：

if (defined($_ = <CONF>))

- ikegami

Answer 2

当文件句柄是while循环中唯一的条件时，才会将I/O读取到$_中。这是一个特例。它不会在if语句中将内容读取到$_中。详见这里。

- stark