#!/usr/bin/perluse utf8; binmode STDIN => ":raw"; binmode STDOUT => ":raw"; binmode STDERR => ":raw";use Benchmark;Benchmark::timethese(150000, { 's_regex' =>\&s_regex, 's_substr' => \&s_substr, });sub s_regex{ my $a = 'オレオレ詐欺'; if($…

Perlソース中の正規表現の最適化をしています。 後方一致をsubstr使ってやったり、とか。詳説 正規表現を読んでいないのでアレですが、 すくなくとも文を前から読んでいく仮定のもとで 決定性オートマトンが容易に思いつかない正規表現は遅いような気がする…