perl - perl 中的 "while()"和 "if()"有什么区别？

Question

这行得通:-

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

但这不是:-

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

并给出有关未初始化值的错误。我在这里想念什么？

Answer 1

while (<CONF>)

被重写为

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

所以你可能想要

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