camel

鐃熟っわ申鐃緒申鐃緒申辰討鐃緒申鐃熟フワ申鐃緒申鐃叔はなわ申鐃緒申

鐃淳わ申鐃緒申鐃緒申: Erlang鐃緒申Perl鐃緒申速鐃緒申鐃緒申鐃�
Perl側鐃熟￥申Encode鐃緒申鐃駿わ申鐃緒申 Encode::from_to鐃緒申inplace鐃叔ワ申鐃緒申弌鐃緒申箸鐃緒申討鐃緒申泙鐃緒申鐃緒申鐃祝￥申直鐃緒申鐃緒申文鐃緒申鐃藷コピ￥申鐃緒申鐃緒申鐃緒申里鐃銃駈申鐃緒申鐃銃わ申鐃緒申里鐃緒申鐃�

鐃淑わ申鐃淑ら、Encode::from_to()鐃緒申速鐃駿ではなわ申鐃緒申鐃緒申鐃緒申鐃緒申鐃祝削申適鐃緒申鐃緒申鐃銃わ申鐃暑か鐃初。

鐃緒申鐃盾そ鐃緒申呂鐃緒申瓩�鐃緒申UTF-8鐃緒申鐃緒申鐃緒申鐃�utf8鐃春ラグ鐃緒申鐃緒申鐃獣てわ申鐃緒申文鐃緒申鐃緒申鐃�from_to鐃緒申箸鐃緒申里呂个鐃緒申鐃緒申討鐃緒申襦�

for(my $i = 0; $i < 0xffff; $i++) {
        my $str2 = $str;
        Encode::from_to($str2, "UTF-8", "Shift_JIS");
}

鐃緒申単鐃緒申

for my $i (0..0xffff) {
    Encode::encode("Shift_JIS", $str);
}

鐃叔よい鐃緒申

鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃塾常申鐃熟わ申鐃緒申鐃緒申適鐃緒申任呂覆鐃緒申鐃�Encode鐃叔わ申文鐃緒申鐃緒申鐃緒申鐃緒申名鐃緒申名鐃緒申鐃緒申鐃盾し鐃銃わ申鐃暑か鐃緒申鐃緒申鐃�"sjis"鐃緒申"Shift_JIS"鐃緒申同鐃緒申鐃祝逸申鐃緒申鐃緒申鐃緒申砲蓮鐃緒申鐃緒申鐃緒申覆鐃初か鐃塾件申鐃叔わ申鐃緒申蕕�同鐃緒申鐃叔わ申鐃暑こ鐃夙わ申判鐃所し鐃淑わ申鐃緒申个覆鐃淑わ申鐃緒申鐃緒申鐃緒申鐃獣器申鐃緒申里鐃緒申鐃�Encode::find_encoding()鐃緒申鐃緒申

鐃渋はわ申鐃緒申Encode::find_encoding()鐃緒申鐃瞬わ申鐃塾わ申鐃緒申鐃緒申鐃緒申鐃緒申鐃曙た名鐃緒申鐃叔はなわ申鐃緒申鐃瞬ワ申鐃緒申鐃緒申鐃夙でわ申鐃暑。鐃緒申鐃緒申鐃銃￥申鐃渋のとわ申鐃緒申鐃緒申鐃塾ワ申鐃瞬ワ申鐃緒申鐃緒申鐃夙わ申鐃緒申鐃緒申鐃渋際わ申(en|de)code鐃緒申圓鐃�transcoder鐃淑のでわ申鐃暑。鐃緒申辰萄鐃重�鐃緒申蓮鐃緒申焚鐃緒申里箸鐃緒申鐃夙なる。

my $enc = find_encoding("Shift_JIS");
for my $i (0..0xffff) {
    $enc->encode($str);
}

鐃淑常申鐃緒申味鐃緒申鐃緒申鐃緒申納孫圓鐃緒申討澆鐃緒申里鐃緒申鐃緒申焚鐃緒申鐃�benchmark鐃叔わ申鐃暑。

            Rate   E::ft  U::J n Jcode n  U::J s Jcode s    E::e    E OO
E::ft    27655/s      --    -35%    -40%    -57%    -58%    -58%    -81%
U::J n   42639/s     54%      --     -7%    -34%    -35%    -35%    -71%
Jcode n  45809/s     66%      7%      --    -29%    -30%    -30%    -69%
U::J s   64725/s    134%     52%     41%      --     -1%     -1%    -56%
Jcode s  65330/s    136%     53%     43%      1%      --     -0%    -56%
E::e     65333/s    136%     53%     43%      1%      0%      --    -56%
E OO    148025/s    435%    247%    223%    129%    127%    127%      --

# Where
# E::ft    Encode::from_to
# U::J n   Unicode::Japanese->new for each iteration
# Jcode n  Jcode->new for each iteration
# U::J s   Unicode::Japanese with object reuse
# Jcode s  Jcode with object reuse
# E::e     Encode::encode
# E OO     Encode with object reuse

Benchmark鐃塾ワ申鐃緒申鐃緒申鐃緒申埜鐃緒申添鐃春わ申鐃銃わ申鐃緒申鐃緒申鐃塾で詳わ申鐃緒申鐃熟わ申鐃緒申鐃緒申鐃緒申鐃縦削申鐃緒申箸鐃緒申董鐃緒申鐃緒申鐃緒申未鐃�Encode鐃緒申適鐃准に使わ申鐃出わ申鐃淑わ申鐃渋�鐃淑のでわ申鐃暑。

鐃夙はわ申鐃緒申鐃緒申里痢鐃�find_encoding()鐃緒申箸辰鐃緒申謄鐃緒申縫奪鐃緒申楼娚鐃緒申箸泙鐃緒申里鐃緒申討鐃緒申覆鐃緒申里如鐃緒申鐃緒申鐃薯機駕申望匆陲靴討澆鐃緒申鐃�Encode 2.20鐃叔もこ鐃塾テワ申鐃祝ッワ申鐃緒申POD鐃叔紹介してわ申鐃暑。

Happy Encoding!

Dan the Encode Maintainer

use strict;
use warnings;
use Benchmark qw/cmpthese timethese/;
use utf8;
use Encode;
use Jcode;
use Unicode::Japanese;

my $str = join '', ( 'a' .. 'z', ( map { chr } ord('鐃緒申') .. ord('鐃緒申') ) );
my $bytes = encode_utf8($str);
my $uj    = Unicode::Japanese->new;
my $j     = Jcode->new;
my $e     = find_encoding('sjis');

cmpthese(
    timethese(
        0,
        {
            'U::J n' =>
              sub { Unicode::Japanese->new( $str, 'utf8' )->sjis },
            'U::J s'  => sub { $uj->set( $str,   'utf8' )->sjis },
            'Jcode n' => sub { Jcode->new( $str, 'utf8' )->sjis },
            'Jcode s' => sub { $j->set( $str,    'utf8' )->sjis },
            'E::ft'   => sub {
                my $b2 = $bytes;
                Encode::from_to( $b2, "UTF-8", "Shift_JIS" );
            },
            'E::e' => sub { encode( 'sjis', $str ) },
            'E OO'     => sub { $e->encode($str) },
        }
    )
);