perl中的“while（<fh>）”和“if（<fh>）”有什么区别？</fh> </fh>

Question

这适用： -

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

但这不是： -

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

并提供有关未初始化值的错误。我在这里错过了什么？

Answer 1

while (<CONF>)

被重写为

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

所以你可能想要

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

Answer 2

文件句柄中的I / O只有当它是while循环中的唯一条件时才被读取到$ _。这是一个特例。它不会读入if中的$ _。见here