2007-12-03から1日間の記事一覧
こんな現象見つけた。 use utf8; use Time::HiRes; use Benchmark qw(:all :hireswallclock); sub five { my $a = 'あいうえお'; my $b = 'あれれ'; ($b =~ /^\s*$a\s*$/) ? 1 : 0; } sub three { my $a = 'あいう'; my $b = 'あれれ'; ($b =~ /^\s*$a\s*$/)…
こんな現象見つけた。 use utf8; use Time::HiRes; use Benchmark qw(:all :hireswallclock); sub five { my $a = 'あいうえお'; my $b = 'あれれ'; ($b =~ /^\s*$a\s*$/) ? 1 : 0; } sub three { my $a = 'あいう'; my $b = 'あれれ'; ($b =~ /^\s*$a\s*$/)…