Повышение Perl регулярное выражение для сбалансированного соответствие

Question

Я обычно используя следующее регулярное выражение для сбалансированного соответствия

my $np; 
$np = qr{ 
       \{ 
       (?: 
         (?> [^\{\}]+) 
        | 
         (??{ $np }) 
       )* 
       \} 
      }x; 

, как, например,

my $text = "{string{string1}{string2}}"; 
$text =~ /($np)/; 

Вопрос заключается в том, может ли он быть расширен таким образом, что совпадает также, когда string и т. д. содержит } или {, которым предшествует обратная косая черта. Это означает, что экранированные фигурные скобки следует игнорировать (обрабатывать как любой другой символ), когда выполняется сбалансированное сопоставление.

Answer 1

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

(?> (?: \\[()] | [^{}])+ ) 

Отметим также, что (??{ $np }) конструкция уже давно и если у вас есть версия 10 или более поздняя версия Perl 5, вы можете использовать встроенный механизм recursion, в котором (?R) будет возвращать все выражение с самого начала.

use strict; 
use warnings; 
use 5.010; 

my $np = qr{ 
    \{ 
    (?: 
     (?> 
     (?: \\\\ | \\} | \\} | [^{}])* 
    ) 
    | 
     (?R) 
    )* 
    \} 
}xs; 

my $text = '{string{string1 \} test}{string2}}'; 
$text =~ /($np)/; 

say $1; 

выход

{string{string1 \} test}{string2}} 

Пожалуйста, обратите внимание, что я не верю, что "не отступать" не построить (?> ...) полезно здесь. Промежуточная строка была указана так, чтобы все, что было после , должно было соответствовать следующему токену или концу строки, и нет никаких неприличных подстановочных знаков. Но я уверен, что он не делает никакого вреда, так что я оставил его.

---

Update

Для обеспечения сбежавшего открытия брекета перед тем первой регулярной скобки, то проще написать отдельный regex для «Обычный символ», который является чем угодно, кроме открывающей или закрывающей скобки или чего-то скрытого.

Как этот

use strict; 
use warnings; 
use 5.010; 

my $reg_char = qr/(?: \\. | [^{}])/xs; # Define what *isn't* a brace 

my $np = qr{ 
    \{ 
    (?: 
     (?> $reg_char*) 
    | 
     (?R) 
    )* 
    \} 
}x; 

my $text = 'aaa \{ bbb {string{string1 \} test}{string2}}'; 
die unless $text =~/$reg_char* ($np) /x; 

say $1; 

выход

{string{string1 \} test}{string2}}