user
chipmunk
<!-- location:latitude=42.25.16,longitude=-71.10.41 -->
<p>
<code>
#!perl -w
use strict;
use Benchmark;
Benchmark->import(qw/cmpthese/) if $^V;
my $time = shift || 2;
my $str = 'StRiNg';
my $var = 'sTrInG';
my %bms = (
reoi => sub { $str =~ /^\Q$var\E\z/oi },
rei => sub { $str =~ /^\Q$var\E\z/i },
lc => sub { lc($str) eq lc($var) },
);
if ($^V) {
cmpthese(-$time, \%bms);
} else {
timethese(-$time, \%bms);
}
__END__
Benchmark: running lc, rei, reoi, each for at least 2 CPU seconds...
lc: 5 wallclock secs ( 2.11 usr + -0.02 sys = 2.09 CPU) @ 564093.78/s (n=1178956)
rei: 5 wallclock secs ( 2.01 usr + 0.00 sys = 2.01 CPU) @ 195359.20/s (n=392672)
reoi: 5 wallclock secs ( 2.26 usr + 0.02 sys = 2.28 CPU) @ 611101.32/s (n=1393311)
Rate rei lc reoi
rei 195359/s -- -65% -68%
lc 564094/s 189% -- -8%
reoi 611101/s 213% 8% --
</code>
2005-09-13 16:12:33
8925
358720
images/userincoming/chipmunk.jpeg
928
<a href="http://boston.pm.org/">Boston.pm</a>
-5
82