perl - 匹配的文本没有被括号括起来

Question

我仍在学习 Perl，如果这是一个明显的问题，我深表歉意。有没有办法匹配不被括号括起来的文本？例如，搜索 foo 只会匹配第二行。

(bar foo bar)
bar foo (
bar foo 
   (bar) (foo)
)

Answer 1

正则表达式模式有一个隐含的前导 \G(?s:.)*?(“跳过字符直到找到匹配项”)。下面扩展了该定义，将嵌套括号视为要跳过的字符。

while (
   $string =~ m{
      \G (?&MEGA_DOT)*?

      ( foo )

      (?(DEFINE)
         (?<MEGA_DOT> [^()] | \( (?&MEGA_DOT)*+ \) )
      )
   }xg
) {
   say "Found a match at pos $-[1].";
}