あまり意識したことが無かった。
いや、Perlの人も特段理由が無ければwhile(my($key, $value) = each %hash)を使用する。
Perlの人を自称しているけど、foreachでループしてたなぁ。
実は、勝手にそう思っているだけでPerlの人ではないのかも？（ぉ
気になったのでベンチマークをとってみたら、foreachが速かった。
もしかして、以前もやったことあるのかも。
それでeachをあまり使わない、とか。
いや、記憶に無いけど。
ついでに、forとforeachで何か違うかと思ってやってみたが、そうでもなかった。
ちなみに、eachに関しては以下のような記事もある。
each関数のメモリ消費量は、ごくわずか。keys関数のように、キーのすべてをメモリに読み込まない。
メモリを節約するのに、速度を犠牲にしているのかも？
今回は、小さなハッシュしか試していないが、大きなハッシュだと結果が違うのかも？
結果
Rate sub_each sub_for sub_foreach sub_each 17928/s -- -27% -27% sub_for 24710/s 38% -- -0% sub_foreach 24710/s 38% 0% --
ベンチマークコード
#!/usr/bin/perl
use strict;
use warnings;
use Benchmark qw(:all);
# use Data::Dumper;
my %hash;
for my $key ( "a" .. "z" ) {
$hash{$key} = int rand 100;
}
cmpthese( 100000, {
sub_for => sub {
my @array;
for my $key (keys %hash) {
push @array, { -key => $key, -val => $hash{$key} };
}
# print Dumper(\@array);
},
sub_foreach => sub {
my @array;
foreach my $key (keys %hash) {
push @array, { -key => $key, -val => $hash{$key} };
}
# print Dumper(\@array);
},
sub_each => sub {
my @array;
while ( my ($key, $value) = each %hash) {
push @array, { -key => $key, -val => $value };
}
# print Dumper(\@array);
},
});
コメントする