perl中的"while(<FH>)"和"if(<FH>)"之间有什么区别？

Question

这有效: -

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

但这不是: -

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

并给出关于未初始化值的错误.我在这里错过了什么？

Answer 1

while (<CONF>)

被改写为

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

所以你可能想要

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