如何将参数传递给Perl 6语法？

Question

在EditDistance:IgnoreStart/end中，我为一个模糊匹配问题提供了一个Perl6解决方案。我有一个这样的语法（尽管可能在编辑3之后我改进了它）：

grammar NString {
    regex n-chars { [<.ignore>* \w]**4 }
    regex ignore  { \s }
    }

文本4本身就是示例中目标字符串的长度。但下一个问题可能是其他长度。那么，我怎样才能告诉语法我希望这场比赛持续多久呢？

Answer 1

虽然文档没有显示示例或使用$args参数，但我在roast中的S05-语法/例子. t中找到了一个。

grammar NString {
    regex n-chars ($length) { [<.ignore>* \w]**{ $length } }
    regex ignore { \s }
    }

class NString::Actions {
    method n-chars ($/) {
        put "Found $/";
        }
    }

my $string = 'The quick, brown butterfly';

loop {
    state $from = 0;
    my $match = NString.subparse(
        $string,
        :rule('n-chars'),
        :actions(NString::Actions),
        :c($from++),
        :args( \(5) )
        );

    last unless ?$match;
    }

不过，我仍然不确定传递参数的规则。这不起作用：

        :args( 5 )

我得到：

通过的位置太少；预期2个参数，但得到1个

这项工作：

        :args( 5, )

但这一晚的思考已经足够了。