鐃緒申鐃緒申表鐃緒申鐃祝わ申鐃緒申鐃銃は￥申/a|b|c/(alteration)鐃緒申[abc](character class)鐃祝わ申鐃駿わ申鐃緒申鐃夙わ申鐃緒申鐃塾は￥申perl鐃祝限わ申覆鐃緒申鐚縁申任鐃緒申鐃�

cover
Mastering Regular Expression
Jeffrey E. Friedl
[邦鐃緒申: 鐃緒申鐃緒申 鐃緒申鐃緒申表鐃緒申]
qootas.org/blog - perl regex performance
"|"(鐃術ワ申鐃緒申)鐃緒申箸辰鐃緒申鐃緒申鐃宿緒申鐃緒申呂鐃緒申鐃純く鐃緒申鐃緒申鐃駿わ申鐃緒申鐃緒申箸鐃淑わ申鐃処う鐃祝￥申鐃夙わ申鐃緒申鐃緒申鐃夙でわ申鐃緒申鐃塾わ申鐃祝ベワ申鐃緒申沺鐃緒申鐃緒申鐃緒申鐃緒申32鐃緒申速鐃緒申鐃叔わ申鐃緒申

鐃宿わ申鐃緒申鐃淑わ申Perl鐃緒申鐃夙わ申鐃緒申鐃緒申鐃緒申/a|b|c/鐃緒申[abc]鐃祝わ申鐃銃わ申鐃曙た鐃緒申隼廚辰鐃緒申鐃緒申箸鐃緒申鐃殉わ申鐃緒申?

鐃緒申鐃淑わ申鐃夙も、鐃緒申鐃緒申表鐃緒申鐃緒申纏鐃緒申濃箸鐃緒申佑蓮鐃緒申鐃緒申鐃緒申任鐃祝�鐃緒申鐃叔もい鐃緒申鐃緒申鐃初こ鐃塾「フワ申鐃緒申鐃緒申鐃旬」わ申蠍居申砲鐃緒申鐃緒申討鐃緒申鐃緒申戮鐃緒申任鐃緒申鐃祝�鐃緒申鐃緒申鐃緒申鐃遵さ鐃緒申箸鐃緒申鐃緒申里發�鐃曙し鐃緒申鐃夙わ申鐃緒申鐃叔￥申鐃緒申鐃緒申覆鐃渋随申鐃緒申鐃緒申邦鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申泙鐃緒申鐃�

鐃緒申鐃緒申鐃銃э申泙鐃緒申討癲�鐃淑わ申鐃緒申鐃緒申鐃緒申表鐃緒申鐃緒申動鐃緒申適鐃緒申鐃夙わ申鐃緒申鐃緒申鐃緒申泙任呂鐃緒申鐃緒申鐃緒申鐃緒申椽鐃緒申泙鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申討鐃緒申覆鐃緒申鐃緒申鐃緒申任縫侫鐃緒申鐃緒申鐃緒申椶鐃緒申鐃緒申鐃緒申鐃緒申泙任覆鐃緒申茲�鐃緒申鐃宿わ申鐃緒申箸鐃緒申鐃緒申票圓癲�鐃緒申entry鐃緒申鐃緒申鐃旬でわ申鐃緒申

鐃緒申命鐃緒申鐃緒申鐃緒申鐃緒申 perl鐃獣わ申鐃緒申鐃緒申表鐃緒申鐃熟常申鐃�NFA鐃叔逸申鐃緒申鐃緒申鐃緒申辰鐃緒申鐃�
鐃緒申鐃緒申鐃緒申辰鐃緒申戮鐃緒申覆鐃塾っわ申NFA鐃緒申有鐃緒申鐃獣でわ申鐃緒申佑鐃緒申鐃�

鐃緒申鐃緒申鐃�NFA鐃緒申DFA鐃緒申鐃夙わ申鐃緒申鐃緒申鐃夙わ申鐃緒申鐃緒申鐃夙わ申鐃緒申鐃叔はなわ申鐃緒申alteration鐃叔わ申/foo|bar|baz/鐃緒申鐃緒申鐃緒申鐃緒申鐃淑わ申鐃緒申个覆鐃淑わ申鐃塾で￥申compile鐃緒申鐃曙た鐃緒申鐃緒申鐃宿わ申鐃宿わ申鐃緒申鐃銃わ申複鐃緒申鐃緒申鐃緒申鐃緒申箸鐃緒申鐃緒申鐃緒申箸發�鐃緒申泙鐃緒申鐃�

/foo|bar|baz/鐃盾、鐃処く鐃緒申鐃緒申鐃�ba[rz]|foo鐃夙書き器申鐃緒申鐃暑こ鐃夙わ申鐃緒申鐃緒申泙鐃緒申鐃緒申鐃緒申譴�鐃緒申鐃緒申表鐃緒申鐃塾削申適鐃緒申鐃叔￥申CPAN鐃祝わ申鐃循削申Regexp::Optimizer鐃緒申鐃緒申鐃�Regexp::Trie鐃緒申鐃緒申鐃緒申鐃緒申Regexp::Assemble鐃淑ど￥申鐃緒申鐃緒申鐃緒申辰討鐃緒申鐃緒申Module鐃緒申鐃緒申鐃叔にわ申鐃緒申鐃縦わ申存鐃淳わ申鐃殉わ申鐃緒申複鐃緒申鐃緒申鐃緒申鐃緒申表鐃緒申鐃熟￥申鐃緒申鐃緒申鐃緒申鐃緒申鐃術わ申鐃緒申箸鐃緒申鐃緒申里任鐃緒申鐃緒申鐃緒申發�Perl鐃緒申鐃緒申鐃緒申的鐃祝わ申鐃緒申鐃緒申辰討鐃緒申譴随申蕁�鐃緒申辰箸鐃緒申蠅�鐃緒申鐃緒申鐃叔わ申鐃緒申鐃�?

鐃緒申鐃緒申鐃緒申鐃緒申法鐃緒申鐃緒申鐃緒申聴鐃緒申鐃緒申蕁ｏ申鐃緒申鐃緒申ruby鐃緒申benchmark鐃緒申鐃銃わ申鐃緒申里如鐃緒申鐃緒申弔鐃緒申perl鐃緒申benchmark鐃緒申流鐃緒申鐃夙はわ申鐃緒申辰醗磴わ申泙鐃緒申鐃緒申笋�ruby鐃祝わ申鐃緒申坿鐃緒申鐃夙わ申鐃緒申鐃緒申鐃夙もあ鐃獣わ申鐃塾わ申ruby鐃緒申鐃緒申鐃緒申流鐃緒申鐃祝駕申錣誌申討泙鐃緒申鐃�

use strict;
use warnings;
use Benchmark ':all';

my $re_alt    = qr/s|t|u|v|w|x|y|z/;
my $re_cclass = qr/[stuvwxyz]/;
my $alphabets = 'abcdefghijklmnopqrstuvwxyz';
my $digits    = '01234567890123456789012345';

my $ntimes = 100_000;

cmpthese(
    timethese(
        0,
        {
            alt    => sub { $alphabets =~ $re_alt    for ( 1 .. $ntimes ) },
            cclass => sub { $alphabets =~ $re_cclass for ( 1 .. $ntimes ) },
        }
    )
);
cmpthese(
    timethese(
        0,
        {
         alt    => sub { $digits =~ $re_alt    for ( 1 .. $ntimes ) },
         cclass => sub { $digits =~ $re_cclass for ( 1 .. $ntimes ) },
        }
    )
);
perl 5.8.8, Mac OS X v10.4, MacBook Pro 2.0GHz 鐃塾件申未呂鐃緒申鐃淑器申鐃緒申鐃緒申 
% perl alt_vs_cclass.pl 
Benchmark: running alt, cclass for at least 3 CPU seconds...
       alt:  4 wallclock secs ( 3.61 usr +  0.01 sys =  3.62 CPU) @  1.10/s (n=4)
    cclass:  3 wallclock secs ( 3.07 usr +  0.01 sys =  3.08 CPU) @ 12.99/s (n=40)
         Rate    alt cclass
alt    1.10/s     --   -91%
cclass 13.0/s  1075%     --
Benchmark: running alt, cclass for at least 3 CPU seconds...
       alt:  4 wallclock secs ( 3.68 usr +  0.02 sys =  3.70 CPU) @  0.81/s (n=3)
            (warning: too few iterations for a reliable count)
    cclass:  3 wallclock secs ( 3.05 usr +  0.01 sys =  3.06 CPU) @ 13.07/s (n=40)
         s/iter    alt cclass
alt        1.23     --   -94%
cclass 7.65e-02  1512%     --

鐃緒申鐃緒申ruby鐃緒申鐃緒申鐃緒申鐃緒申ruby鐃緒申benchmark鐃盾ジ鐃遵ー鐃緒申辰董鐃緒申鐃緒申鐃緒申屬鐃緒申鐃緒申蠅件申討鐃緒申鐃緒申里諭鐃緒申鐃緒申鐃獣とわ申鐃緒申鐃緒申鐃緒申鐃叔もコ鐃緒申鐃宿はわ申鐃曙い鐃祝わ申鐃緒申鐃緒申諭鐃緒申鐃獣ぱ￥申

require 'benchmark'

re_alt    = Regexp.compile('r/s|t|u|v|w|x|y|z')
re_cclass = Regexp.compile('[stuvwxyz]')
alphabets = 'abcdefghijklmnopqrstuvwxyz'
digits    = '01234567890123456789012345'

ntimes = 100_000;
Benchmark.bm(8) do |x|
    x.report('alt')    { ntimes.times{ re_alt.match(alphabets) } }
    x.report('cclass') { ntimes.times{ re_cclass.match(alphabets) } }
end
Benchmark.bm(8) do |x|
    x.report('alt')    { ntimes.times{ re_alt.match(digits) } }
    x.report('cclass') { ntimes.times{ re_cclass.match(digits) } }
end
ruby鐃緒申version鐃緒申1.8.4鐃緒申鐃渋行環駈申鐃緒申perl鐃緒申同鐃緒申鐃緒申 
              user     system      total        real
alt       0.260000   0.000000   0.260000 (  0.269878)
cclass    0.200000   0.000000   0.200000 (  0.207589)
              user     system      total        real
alt       0.120000   0.000000   0.120000 (  0.124052)
cclass    0.080000   0.000000   0.080000 (  0.080326)

Ruby鐃緒申鐃緒申鐃緒申鐃駿わ申鐃夙醐申鐃緒申鐃緒申鐃駿わ申鐃叔わ申鐃緒申鐃緒申alteration|鐃緒申character class鐃塾削申鐃熟常申鐃淑わ申鐃叔わ申鐃粛￥申鐃獣わ申match鐃緒申鐃緒申立鐃緒申鐃緒申能鐃塾ワ申鐃緒申鐃緒申鐃叔は￥申鐃旬逸申鐃淑わ申鐃緒申

鐃夙￥申鐃緒申鐃緒申鐃殉でわ申鐃緒申鐃春り。

鐃緒申鐃淳鰹申発鐃緒申鐃�bleedperl鐃叔は￥申鐃縦わ申鐃緒申TRIE Optimization鐃緒申鐃緒申鐃緒申鐃緒申鐃曙た鐃塾でわ申鐃緒申

鐃庶し鐃銃みまわ申鐃順う鐃緒申

% ~/bleedperl/bin/perl5.9.4 alt_vs_cclass.pl   Benchmark: running alt, cclass for at least 3 CPU seconds...
       alt:  4 wallclock secs ( 3.00 usr +  0.01 sys =  3.01 CPU) @  3.99/s (n=12)
    cclass:  4 wallclock secs ( 3.09 usr +  0.01 sys =  3.10 CPU) @ 11.61/s (n=36)
         Rate    alt cclass
alt    3.99/s     --   -66%
cclass 11.6/s   191%     --
Benchmark: running alt, cclass for at least 3 CPU seconds...
       alt:  3 wallclock secs ( 3.02 usr +  0.01 sys =  3.03 CPU) @  8.25/s (n=25)
    cclass:  3 wallclock secs ( 3.04 usr +  0.01 sys =  3.05 CPU) @ 13.11/s (n=40)
         Rate    alt cclass
alt    8.25/s     --   -37%
cclass 13.1/s    59%     --

鐃緒申鐃緒申鐃緒申鐃叔わ申?

Dan the Regular Expressionist