[perl #58280] Speed lost on /^(foo|bar|baz)$/ match

On Tue Jul 07 19:34:55 2009, schwern wrote:
> FWIW it got worse.  perl5.10.1 here is the latest maint5.10.
> 
>

FWIW, here are some comparisons:

Linux/i386:

$ /usr/bin/perl 58280.pl 5000000
Perl version: 5.010000
               Rate     regex regex_opt        eq
regex     1689189/s        --       -7%      -75%
regex_opt 1818182/s        8%        --      -73%
eq        6666667/s      295%      267%        --

$  /usr/local/bin/perl5.12.0 58280.pl 5000000
Perl version: 5.012000
                Rate     regex regex_opt        eq
regex      1824818/s        --       -1%      -85%
regex_opt  1845018/s        1%        --      -85%
eq        12195122/s      568%      561%        --

$ perl 58280.pl 5000000
Perl version: 5.014000
                Rate regex_opt     regex        eq
regex_opt  2793296/s        --       -6%      -77%
regex      2976190/s        7%        --      -75%
eq        11904762/s      326%      300%        --


Darwin/PPC:

$ /usr/bin/perl 58280.pl 5000000
Perl version: 5.008006
               Rate     regex regex_opt        eq
regex     1059322/s        --      -15%      -65%
regex_opt 1250000/s       18%        --      -59%
eq        3067485/s      190%      145%        --

$ /usr/local/bin/perl5.12.0 58280.pl 5000000
Perl version: 5.012000
               Rate     regex regex_opt        eq
regex      314663/s        --       -4%      -86%
regex_opt  326797/s        4%        --      -85%
eq        2232143/s      609%      583%        --

$ perl 58280.pl 5000000
Perl version: 5.014002
               Rate regex_opt     regex        eq
regex_opt  677507/s        --       -4%      -86%
regex      706215/s        4%        --      -85%
eq        4672897/s      590%      562%        --


It appears that things improved on both OSes between 5.12 and 5.14.

Does this ticket have to remain open?

Thank you very much.
Jim Keenan

---
via perlbug:  queue: perl5 status: open
https://rt.perl.org:443/rt3/Ticket/Display.html?id=58280

• [perl #58280] Speed lost on /^(foo|bar|baz)$/ match by James E Keenan via RT
• Re: [perl #58280] Speed lost on /^(foo|bar|baz)$/ match by Dave Mitchell