hell0again · May 19, 2015 09:23
diff --git a/gistfile1.txt b/gistfile1.txt
 my $str = "a + (b * (3 / (c + 5)))";

 $str =~ /\(((?:[^()]++|(?R))*)\)/;
 #       /\(                   \)/;  # 括弧にマッチ
 #          (                 )      # 後方参照
 #           (?:[^()]++|(?R))*       # 括弧以外のバックトラックなしの貪欲マッチ または全体のパターンにマッチ(再帰)

 print $1; ## "b * (3 / (c + 5))"
	my $str = "a + (b * (3 / (c + 5)))";

	$str =~ /\(((?:[^()]++\|(?R))*)\)/;
	# /\( \)/; # 括弧にマッチ
	# ( ) # 後方参照
	# (?:[^()]++\|(?R))* # 括弧以外のバックトラックなしの貪欲マッチまたは全体のパターンにマッチ(再帰)

	print $1; ## "b * (3 / (c + 5))"