regex - 在已编译的正则表达式中禁用捕获？ (例如，Perl 5.22+，/n 修饰符)

Question

环境:Cygwin x64 上的 Perl 5.26.2 x64。

问题:在my $re = qr/...(capturing group).../之后，有没有办法使用$re 没有捕获到它的捕获组中？

X: 我匹配的行可能是:

#define FOO(X,Y) SomeComplicatedStuff

或

#define FOO(X,Y) BAR(X,Y)

我有一个已编译的正则表达式 $re 匹配 FOO(X,Y) 并包含编号的捕获组以将匹配拆分为 FOO和 X,Y。我想匹配第二种形式的行，而不必定义单独的正则表达式，例如，使用 m/$re.+$re/。这工作正常，但是当我真正想要的是 BAR 组时，我得到了 FOO 的所有捕获组。

Y: 我认为我可以在 5.22+ 中使用 /n 修饰符来做到这一点，但我无法让它工作。 MCVE:

$ perl -E 'my $re=qr/(foo|bar)/; "foobar" =~ m/$re$re/; say $1, " ", $2;'
foo bar     # as expected

$ perl -E 'my $re=qr/(foo|bar)/; "foobar" =~ m/(?n:$re)$re/; say $1, " ", $2;'
            # I think this should turn off      ^^^  capturing of `foo`
foo bar     # oops - I was hoping for `bar`

$ perl -E 'my $re=qr/(foo|bar)/; "foobar" =~ m/(?n:(foo|bar))$re/; say $1, " ", $2;'
bar         # This works, but I had to inline $re within (?n:...).

注意:我也试过\K:

$ perl -E 'my $re=qr/(foo|bar)/; "foobar" =~ m/$re\K$re/; say $1, " ", $2, " ", $&;'
foo bar bar      # was hoping for `bar  bar`

编辑 忘了说了——我看过this related question ，但这不是同一个问题陈述。

Answer 1

$re的字符串化为(?^u:(foo|bar))。换句话说，它将标志设置为编译模式时使用的标志，从而关闭 /n。

您可以使用以下任何一种:

my $re = qq/(foo|bar)/;    # Note: Gotta escape `\` that are part of regex escapes.
/(?n:$re)$re/

(转义示例:qr{(fo\w|ba\w)} 变为 qq{(fo\\w|ba\\w)} 时使用这种技术。)

my $re = qr/foo|bar/;
/$re($re)/

my $re = qr/
   (?<foo_or_bar>) ((?<foo_or_bar>))
   (?(DEFINE)
      (?<foo_or_bar>foo|bar)
   )
/x;
/$re/