Perl 6 正则表达式变量和捕获组

Question

当我使用捕获组创建regex 变量时，整个匹配都可以，但捕获组是Nil。

my $str = 'nn12abc34efg';
my $atom = / \d ** 2 /;
my $rgx = / ($atom) \w+ ($atom) /;

$str ~~ / $rgx / ;
say ~$/;  # 12abc34
say $0;   # Nil
say $1;   # Nil

如果我修改程序以避免$rgx，一切都会按预期进行：

my $str = 'nn12abc34efg';

my $atom = / \d ** 2 /;
my $rgx = / ($atom) \w+ ($atom) /;

$str ~~ / ($atom) \w+ ($atom) /;
say ~$/;  # 12abc34
say $0;   # ｢12｣
say $1;   # ｢34｣

Answer 1

使用您的代码，编译器会给出以下警告：

Regex object coerced to string (please use .gist or .perl to do that)

这告诉我们出了点问题——正则表达式不应该被视为字符串。还有两种更合适的嵌套正则表达式的方法。首先，您可以在断言中包含子正则表达式(<>)：

my $str = 'nn12abc34efg';
my Regex $atom = / \d ** 2 /;
my Regex $rgx = / (<$atom>) \w+ (<$atom>) /;
$str ~~ $rgx;

请注意，我不匹配 / $rgx /。那就是将一个正则表达式放入另一个正则表达式中。只需匹配$rgx。

更好的方法是使用命名正则表达式。如下定义 atom 和正则表达式将允许您以 $<atom>[0] 和 $<atom>[1] 访问匹配组：

my regex atom { \d ** 2 };
my $rgx = / <atom> \w+ <atom> /;
$str ~~ $rgx;

Answer 2

关键的观察是$str ~~ / $rgx /; 是“正则表达式中的正则表达式”。 $rgx 应该匹配并在它自己的 Match 对象中设置 $0 和 $1，但是周围的匹配对象中没有存储该信息的位置，因此您看不到它。也许有一个例子就很清楚了，试试这个：

my $str = 'nn12abc34efg';
my $atom = / \d ** 2 /;
my $rgx = / ($atom) \w+ ($atom) /;

$str ~~ / $0=$rgx /;
say $/;

注意$0的内容。或者作为另一个例子，让我们给它一个合适的名字：

my $str = 'nn12abc34efg';
my $atom = / \d ** 2 /;
my $rgx = / ($atom) \w+ ($atom) /;

$str ~~ / $<bits-n-pieces>=$rgx /;
say $/;