perl - 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。キーは変更されないため、ループの外でキーを取得できます。

Answer 2

ループ内で呼び出すkeysと、 で使用されるイテレータがリセットされeachます。そうしないでください。これはうまくいくはずです：

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