regex - perl6 语法做替换

Question

好的，我正在学习 perl6，我正在尝试做一些非常简单的事情：使用语法根据操作对象更改匹配的文本。但我失败了，我不知道为什么。请原谅我这么简单的问题。我不在技术或编程行业。所以，请耐心等待我，好吗？

我想将“jan”更改为 01，将“feb”更改为 02；很简单：

grammar month {
    regex TOP { (\s* <mon> \s*)+ }
    proto regex mon {*}
    regex mon:sym<jan> { <sym> }
    regex mon:sym<feb> { <sym> }
}
class monAct {
    method TOP ($/) {
    make $<mon>.made;
    }
    method mon:sym<jan> ($/) { make "01"; };
    method mon:sym<feb> ($/) { make "02"; };
}
my $m = month.parse("jan feb jan feb", actions => monAct.new);
say $m.made; # it says Nil instead of "01 02 01 02" that I want; 

那么，我在这里做错了什么？谢谢。

Answer 1

<mon>范围是捕获组，而不是TOP规则。您可以索引匹配对象以获取它，但使用非捕获组可能更容易：

regex TOP { [\s* <mon> \s*]+ }

此外，由于+量词，您不会得到一个匹配对象，而是一个列表。您可以使用>>或map获取有效载荷，例如

method TOP ($/) { make $<mon>>>.made }