正規表現でCommon Prefix Search
2007-05-15-1
[Programming][Algorithm]
正規表現でCommon Prefix Searchを行う力技な方法のPerlによるサンプル。
ちょっと試すとき用のコピペ用コード片、といった感じのものです。
TRIEとかオートマトンとかでちゃんとやるのが王道ですよ。
コード:
実行例:
ちょっと試すとき用のコピペ用コード片、といった感じのものです。
TRIEとかオートマトンとかでちゃんとやるのが王道ですよ。
コード:
use strict; use warnings; use utf8; binmode STDOUT, ":utf8"; my $str = "あうえういあおういいういああ"; my $key = "ういあ"; my @chars = split("", $key); my $pat = join("(", @chars).(")?" x $#chars); while ($str =~ /($pat)/g) { print "$1\n"; }
実行例:
% perl a.pl う ういあ うい ういあ