需要在我的 perl 正则表达式中转义不平衡的括号

Question

• 编辑：我添加了一个指向实时正则表达式工具的链接以检查正则表达式的运行情况：https://regex101.com/r/906a6D/4

---

我有以下 perl 正则表达式

/(\[(?>[^\[\]]+|(?1))*\])/sg

这很好用并且完全匹配所有这些字符串

[a ] 

[ a] 

[a [b
]] 

[code sub t{
   my ($o,$k) = @_;
   my $c = 0;
   my $r;
   for(split //,$t){
     $r .= $_ unless(($c+($k-$o)) % $k);
     []
     $c++
   }
   $r =~ s/[^a-z]//g;
   return $r
 }]

但是，我需要转义括号。如果有不平衡的，这将不起作用，所以我想像这样\] 或者像这样{{- ] -}} 那样逃避它们。

这应该匹配到最后一个 ] 括号。

[a \] ]        

这也应该匹配到最后一个]。

[a \]\[ ]      

这也是

[a \\ ]        

我还尝试在外部括号前面和内部忽略括号中使用环视断言(?>!)、(?<=)，然后是这样的字符串

[a \[ ]    

被完全忽略，完全不匹配，甚至没有一个字符。

我需要在平衡括号时忽略这些转义括号，但仍匹配正则表达式并被捕获。

Answer 1

这是一个可能的解决方案：

m{ ( \[ (?> [^\[\]\\]++ | \\. | (?1) )*+ \] ) }xs

变化：

• 添加了x 标志以使其更具可读性
• 使所有量词都具有所有格，因为为什么不这样做（否则我会对嵌套的量词感到不安（+ 直接在 * 内部））
• 将\ 添加到第一个字符类以防止它被匹配（如[ 和]，\ 对我们的正则表达式有特殊含义）
• 为转义字符添加了一个分支（\ 后跟任何字符都会匹配，否则会被忽略）