camel

鐃緒申鐃塾はまわ申鐃緒申鐃獣わ申鐃処、鐃述わ申鐃緒申鐃緒申鐃緒申

鐃駿わ申each鐃緒申鐃緒申鐃緒申忙箸鐃�splice鐃塾ワ申鐃獣ト￥申鐃叔ワ申鐃獣ワ申 | 鐃術ルカ鐃緒！
鐃叔￥申鐃緒申鐃緒申鐃緒申戮鐃�each鐃緒申箸鐃緒申鐃緒申鐃祝刻申速鐃緒申splice鐃熟どわ申鐃叔わ申鐃順う鐃緒申鐃獣わ申鐃獣￥申

鐃緒申鐃祝わ申鐃獣て￥申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申蠅駕申鐃淑わ申鐃�!

# 鐃緒申
my %mapping = my @mapping = map {$_ => $_} (1..100); # 鐃緒申鐃緒申鐃叔緒申鐃緒申鐃緒申鐃緒申討鐃緒申襪縁申鼻鐃�

cmpthese -1, {
    splice => sub {
        while (my ($key, $value) = splice @mapping, 0, 2) {}
    },
    # 鐃緒申
};

use strict;
use warnings;
use Benchmark qw(:all);

print "splice(), each(), keys(), values() Benchmark!!\n";

cmpthese -1, {
    splice => sub {
        my @mapping = %hash; # each()鐃緒申鐃緒申鐃緒申鐃祝わ申鐃暑た鐃緒申砲蓮鐃緒申鐃緒申鐃緒申鐃緒申覆鐃緒申鐃�
        while (my ($key, $value) = splice @mapping, 0, 2) {}
    },
    # 鐃緒申
};

鐃緒申鐃淑わ申肌鐃緒申離鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申討鐃緒申鐃緒申鐃緒申鐃緒申蕁�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃塾わ申鐃緒申多鐃祝わ申鐃暑こ鐃夙わ申鐃緒申覆鐃緒申鐃緒申鐃緒申鐃宿￥申

鐃緒申鐃夙￥申鐃緒申鐃塾ワ申鐃緒申鐃宿￥申

each()鐃緒申鐃駿わ申鐃緒申鐃緒申鐃縮�鐃緒申鐃緒申鐃緒申盖�鐃緒申鐃巡す鐃緒申 - Islands in the byte stream
cmpthese -1, {
    # 鐃緒申
    keys => sub {
        foreach my $key(keys %hash) { } # 鐃緒申鐃緒申鐃� each 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申覆鐃緒申鐃緒申?
    },
    # 鐃緒申
};

cmpthese -1, {
    # 鐃緒申
    keys => sub {
        # 鐃緒申鐃緒申鐃祝わ申鐃緒申覆蕁�鐃緒申鐃緒申鐃緒申
        foreach my $key ( keys %hash ) { my $value = $hash{$key}; }
    },
    # 鐃緒申
};

鐃叔￥申鐃遵記鐃緒申反鐃叔わ申鐃緒申鐃緒申鐃緒申未鐃緒申鐃緒申鐃緒申鐃緒申蕁�

          Rate  splice each_kv  each_k     map    keys  values
splice   135/s      --    -41%    -63%    -65%    -66%    -91%
each_kv  226/s     68%      --    -37%    -41%    -42%    -85%
each_k   359/s    167%     59%      --     -7%     -9%    -76%
map      384/s    186%     70%      7%      --     -2%    -75%
keys     393/s    192%     74%      9%      2%      --    -74%
values  1520/s   1030%    571%    323%    295%    287%      --

splice鐃緒申keys鐃宿わ申鐃緒申鐃緒申each鐃祝わ申擇个覆鐃緒申錙�

鐃夙わ申鐃緒申鐃緒け鐃叔￥申hash鐃緒申鐃緒申鐃塾�鐃宿わ申鐃緒申鐃術でわ申鐃暑、鐃緒申鐃緒申僖鐃緒申箸念鐃緒申鐃緒申聞鐃淑醐申呂鐃緒申鐃緒申鐃�

for my $key (keys %hash) {
    my $value = $hash{$key};
    # and use $key and $value here
}

鐃渋際￥申鐃熟ッワ申鐃緒申鬟ぅ謄譟種申箸鐃緒申鐃楯にわ申sort鐃緒申鐃夙み刻申錣誌申襪鰹申箸鐃渋随申鐃緒申里如鐃緒申箸鐃緒申笋刻申鐃緒申發�鐃暑。

for my $key (sort keys %hash) {
    my $value = $hash{$key};
    # and use $key and $value here
}

鐃夙はわ申鐃緒申鐃緒申%hash鐃緒申$key鐃緒申鐃緒申鐃駿書かなわ申鐃夙わ申鐃緒申鐃淑わ申鐃夙わ申鐃緒申鐃緒申鐃緒申鐃緒申鐃銃なわ申鐃夙は誌申鐃竣わ申鐃緒申hash.each{ |k,v| #鐃緒申 } 鐃緒申鐃緒申直鐃祝書けわ申Rubyists鐃塾「わけ鐃緒申鐃緒か鐃緒申覆鐃緒申鐃竣とわ申鐃緒申鐃緒申鐃緒申聞鐃緒申鐃緒申鐃銃わ申鐃緒申鐃緒申鐃緒申鐃緒申

Dan the Perl Monger

#!perl
use strict;
use warnings;
use Benchmark qw(:all);

my %hash = map { $_ => $_ } ( 1 .. 10000 );

cmpthese timethese - 1, {
    each_k => sub {
        while ( my $key = each %hash ) { }
    },
    each_kv => sub {
        while ( my ( $key, $value ) = each %hash ) { }
    },
    keys => sub {
        foreach my $key ( keys %hash ) { my $value = $_; }
    },
    values => sub {
        foreach my $value ( values %hash ) { }
    },
    map => sub {
        map { my $key = $hash{$_} } keys %hash;
    },
    splice => sub {
        my @keys = %hash;
        while ( my ( $key, $value ) = splice @keys, 0, 2 ) { }
    },
};