Perl Regex матч сбалансированные

Question

скобках следующие строки - матч:

"MNO(A=(B=C) D=(E=F)) PQR(X=(G=H) I=(J=(K=L)))" - "MNO" 
"MNO(A=(B=C) D=(E=F))" - "MNO" 
"MNO" - "MNO" 
"RAX.MNO(A=(B=C) D=(E=F)) PQR(X=(G=H) I=(J=(K=L)))" - "RAX.MNO" 
"RAX.MNO(A=(B=C) D=(E=F))" - "RAX.MNO" 
"RAX.MNO" - "RAX.MNO" 

Внутри каждой скобки может быть неограниченное количество групп из них, но они должны полностью закрыта.

Любые идеи? Не знаю, как проверить правильно близость ..

должны использовать Perl-регулярных выражений

Answer 1

В Perl или PHP, например, вы можете использовать регулярные выражения, как

/\((?:[^()]++|(?R))*\)/ 

, чтобы соответствовать сбалансированные круглые скобки и их содержимое.

См. Его на regex101.

Чтобы удалить все эти матчи из строки $subject в Perl, вы можете использовать

$subject =~ s/\((?:[^()]++|(?R))*\)//g; 

Объяснение:

\(  # Match a (
(?:  # Start of non-capturing group: 
[^()]++ # Either match one or more characters except(), don't backtrack 
|  # or 
(?R) # Match the entire regex again, recursively 
)*  # Any number of times 
\)  # Match a)