手慰みに、実際にこれをやるCGIを書いてみた。

404 Blog Not Found:TRIE-Optimized Regexp
使い方は簡単。/usr/share/dict/wordsのような、一行一語のファイルを引数に指定すると、それに対応した正規表現を吐いてくれます。あとはそれを
my $re = do "keyword.list.rx";
とかして読み込めばOK。

ここに関連ファイルを含めておいといたので、適当に楽しんで下さい。

CGIで動かしているのでパフォーマンスは大したことがありませんが、それでも生のはてなキーワードよりもずっと軽いはず。あくまでも手慰みなので、ご利用は控えめに。鯖が過負荷になったら問答無用で止めちゃいますのでよろしくお願いします。

Dan the Just Another Perl Hacker