regex - 命名正则表达式在 raku 中捕获失败

Question

有人可以解释为什么捕获(命名和未命名)在命名正则表达式中似乎不起作用？我是
期待这是我做错了什么，但如果是这样，我看不到它。这里被捕获
来自 raku repl 的文本作为我的简短示例。

> my $s = '16.01.2020 09:18 286';
> my $dReg = /^(\d**2)\.(\d**2)\.(\d**4)/;
> $s ~~ /<$dReg>/;
｢16.01.2020｣
> if $s ~~ /<$dReg>/ { say $0 }
Nil
> my $dReg1 = /^$<day> = (\d**2)\.$<mon> = (\d**2)\.$<year> = (\d**4)/;
/^$<day> = (\d**2)\.$<mon> = (\d**2)\.$<year> = (\d**4)/
> $s ~~ /<$dReg1>/;
｢16.01.2020｣
> if $s ~~ /<$dReg1>/ { say $<day> }
Nil
> if $s ~~ /^$<day> = (\d**2)\.$<mon> = (\d**2)\.$<year> = (\d**4)/ { say $<day> }
｢16｣
> if $s ~~ /^(\d**2)\.(\d**2)\.(\d**4)/ { say $0 }
｢16｣

Answer 1

问题出在使用正则表达式的地方 - 即 <$dReg> .以非标识符开头的任何形式的断言语法都不会捕获。解决方案是引入一个名称以供捕获。例如，这个:

my $s = '16.01.2020 09:18 286';
my $dReg = /^(\d**2)\.(\d**2)\.(\d**4)/;
say $s ~~ /<dreg=$dReg>/;

结果是:

｢16.01.2020｣
 dreg => ｢16.01.2020｣
  0 => ｢16｣
  1 => ｢01｣
  2 => ｢2020｣

然后您将访问捕获为 $<dreg>[0] .这是因为规则调用的每个级别都意味着 Raku 正则表达式中的嵌套级别。这使他们能够扩展到完整的语法。

请注意，如果您只想这样做，则与包含正则表达式的变量匹配完全没问题，而且效率更高。在这种情况下，您将直接获得捕获。例如，这个:

my $s = '16.01.2020 09:18 286';
my $dReg = /^(\d**2)\.(\d**2)\.(\d**4)/;
say $s ~~ $dReg;

产生:

｢16.01.2020｣
 0 => ｢16｣
 1 => ｢01｣
 2 => ｢2020｣