【Perl】keys と each の使い分け

Question

Perlの関数について教えていただけますでしょうか。

下記2つの書き方は結果として同じことをしていると思うのですが
何が違うのでしょうか？

while (my $key = each %data) {}

foreach my $key (keys %data) {}

素人ですみません。

Answer 1

whileは1件ずつ取り出すのに対して、forの場合はkeysがリストを生成してからループが開始します。

forの場合は実質こういうことをしています。

my @list = keys %data;
for my $key (@list) {
}

下のコードでそれが確認できます。
これを実行したときに、startと最初のキーを表示するまでの時間が、
whileはすぐに表示されますが、keysでは少し間隔が空きます。
あまり差が感じられないようでしたら、5000000を大きくしてみてください。

my %data =();
my $i = 0;
for ($i = 0; $i < 5000000; $i++) {
  $data{"k".$i}=$i;
}

print "start\n";
while (my $key = each %data) {
#for my $key (keys %data) {
  print $key, "\n";
  last;
}