ANDやORを用いた検索式でテキスト走査する(perl)

ANDやORを用いた検索式でテキスト走査する(perl) 2012-01-26-1 [Programming] ANDやORなどを用いた検索式でgrepのようなテキスト走査するタスク。 検索式に用いる演算子は AND→"&", OR→"|", NOT→"!" と括弧"()"。 具体例を挙げる。 検索式「(あい|うえ)&お&!(か|き|け)」とマッチするものしないもの。 - あいうえお → o - ああいおお → o - おうえい → o - うえおけ → x - あいうえおけ → x ■コード(logrep.pl)： #!/usr/bin/perl use strict; use warnings; use Encode; use utf8; use open ':utf8'; binmode STDIN, ":utf8"; binmode STDOUT, ":utf8"; my $que

[uta46]

強引さが素敵。ちなみに mg だと mg -ex 'あい|うえ お -か|き|け' のように書けます。