camel

鐃夙わ申鐃緒申鐃緒け鐃叔￥申鐃緒申鐃塾件申鐃緒申鐃緒申鐃出削申鐃緒申

[Perl]UTF8-flagged strings affects regexps with the "i" modifier - use GFx::WebLog;
Perl鐃叔わ申utf8鐃春ラグ鐃春わ申鐃緒申文鐃緒申鐃緒申鐃緒申个鐃緒申鐃�uc/lc/"i"鐃緒申鐃緒申表鐃緒申鐃緒申鐃緒申鐃述わ申鐃緒申鐃緒申鐃駿わ申鐃塾わ申鐃緒申鐃緒申H::F::Lite鐃叔わ申/i鐃緒申箸辰討鐃緒申鐃塾で￥申鐃庶し鐃緒申/i鐃緒申箸鐃淑わ申鐃処う鐃祝わ申鐃銃みわ申函鐃渋�鐃駿わ申鐃緒申鐃緒申鐃緒申鐃緒申

id:gfx鐃塾種申張鐃熟￥申鐃淑駕申鐃塾よう鐃祝わ申鐃銃確わ申鐃祝確わ申鐃緒申鐃緒申襦�

use strict;
use warnings;
use Benchmark qw/cmpthese timethese/;
{
    use bytes;
    my $str = 'dankogai = 鐃緒申鐃緒申鐃緒申';
    cmpthese timethese - 1 => {
        '//i'     => sub { $str =~ /DAN/i },
        '/[]/'    => sub { $str =~ /[Dd][Aa][Nn]/ },
        '/(?i:)/' => sub { $str =~ /(?i:dan)/ },
    };
}
{
    use utf8;
    my $str = 'dankogai = 鐃緒申鐃緒申鐃緒申';
    cmpthese timethese - 1 => {
        '//i'     => sub { $str =~ /DAN/i },
        '/[]/'    => sub { $str =~ /[Dd][Aa][Nn]/ },
        '/(?i:)/' => sub { $str =~ /(?i:dan)/ },
    };
}

bytes

             Rate /(?i:)/    /[]/     //i
/(?i:)/ 2435851/s      --     -1%     -6%
/[]/    2453219/s      1%      --     -5%
//i     2583577/s      6%      5%      --

utf8

//i      445390/s      --     -1%    -79%
/(?i:)/  449756/s      1%      --    -79%
/[]/    2163925/s    386%    381%      --

鐃緒申鐃緒申覆蕁�鐃緒申鐃初か鐃緒申鐃緒申/dan/i鐃緒申/[Dd][Aa][Nn]/鐃祝わ申鐃銃わ申鐃殉わ申鐃出わ申鐃緒申鐃叔はなわ申鐃緒申鐃緒申鐃夙わ申鐃緒申鐃緒け鐃叔削申鐃緒申鐃緒申鐃緒申鐃塾わ申鐃緒申鐃緒申鐃初。

use strict;
use warnings;
use Benchmark qw/cmpthese timethese/;

sub qri {
    my $pat = join '', map { '[' . uc($_) . lc($_) . ']' } split //, shift;
    qr($pat);
}

use utf8;
binmode STDOUT => ':utf8';

my $str = '鐃緒申鐃緒申僥鐃准бэ申, 鐃緒申鐃俊аэ申擂鐃� GFX!';
my $pat = qri('鐃緒申鐃緒申僥鐃准бэ申');
print $pat;

cmpthese timethese - 1 => {
    '//i'     => sub { $str =~ /鐃緒申鐃緒申僥鐃准бэ申/i },
    '/[]/'    => sub { $str =~ /[鐃緒申鐃緒申][鐃緒申鐃緒申][鐃緒申鐃緒申][鐃緒申鐃緒申][鐃緒申鐃緒申][鐃緒申鐃緒申][鐃緒申鐃緒申]/ },
    '/(?i:)/' => sub { $str =~ /(?i:鐃緒申鐃緒申僥鐃准бэ申)/ },
    'qri+o'   => sub { $str =~ /$pat/o },
    'qr'      => sub { $str =~ /$pat/  },
};

            Rate     //i /(?i:)/      qr   qri+o    /[]/
//i      58040/s      --     -2%    -82%    -89%    -90%
/(?i:)/  59077/s      2%      --    -82%    -89%    -89%
qr      330830/s    470%    460%      --    -38%    -41%
qri+o   530963/s    815%    799%     60%      --     -6%
/[]/    562195/s    869%    852%     70%      6%      --

留鐃緒申鐃緒申鐃夙わ申鐃銃￥申precompile鐃緒申鐃曙たregexp鐃緒申箸鐃緒申鐃緒申砲蓮鐃�//o鐃緒申鐃緒申蠅刻申襪鰹申箸鐃緒申鐃緒申襪�鐃緒申鐃緒申鐃緒申鐃縮わ申鐃緒申鐃緒申未噺鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鵝▲鐃緒申鐃春ワ申鐃駿ットわ申鐃緒申鐃叔はなわ申鐃緒申文鐃緒申鐃緒申文鐃緒申鐃塾駈申鐃縮わ申鐃緒申鐃緒申文鐃緒申鐃叔わ申鐃緒申个鐃緒申離謄鐃緒申縫奪鐃緒申鐃緒申鐃緒申討鐃淑醐申鐃緒申忙箸鐃緒申襦�

Dan the Regular Expressionist