動的正規表現を使って入れ子の対にマッチさせる

perlコードを動的正規表現は(??{Perlコード})で記述する

my $regx;
$regx = qr/ (?> [^()]+ | \( (??{ $regx }) \) )* /x;
if ($str =~ m/\b\w+ ( \( $regx \) ) /x) {
print "$str\t--> found ptn2 : $1\n";
}

ちなみに、perlの組み込みコードは(?{Perlコード})で記述

0 件のコメント:

コメントを投稿

DataStoreの辛いところ

# DataStoreの限界 FacebookやインスタグラムのようなSNSで、投稿、公開範囲、お気に入りなどの機能をDataStoreで実現しようとするとどうしても辛くなる。 ## DataStoreで実現可能? - users - id - feeds - i...