perl 101 - 迭代散列导致永无止境的循环

Question

不知道为什么这个脚本会无限运行。我觉得不错。

while (my ($k, $v) = each (%ENV)){
 my @k = keys (%ENV);
 if($k eq $k[0]){
   print "ok";
  }
}

Answer 1

keys (还有 values )函数重置 each 使用的迭代器功能。由于 key 不会更改，您可以在循环外检索它们。