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

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 件のコメント:

コメントを投稿

.mitmproxyを使ってHTTPSの通信を確認

公式のドキュメント https://docs.mitmproxy.org/stable/ # install ## mac ``` $ brew install mitmproxy ``` ## iPhone ### 証明書 セキュアな通信を傍受するために、プロファイ...