Perl6语法和操作错误：“无法找到方法'安'NQPMu类型的对象”

好吧，我仍然遇到perl6语法和行动的麻烦。我想在一个字符串中找到一个模式，一旦找到它，根据操作改变模式，并返回修改后的字符串。Perl6语法和操作错误：“无法找到方法'安'NQPMu类型的对象”

my $test = "xx, 1-March-23, 23.feb.21, yy foo 12/january/2099 , zzz"; 
# want this result: xx, 010323, 230221, yy foo 120199 , zzz"; 
# 2 digits for day, month, year 

grammar month { 
    regex TOP { <unit>+ } 
    regex unit { <before> <form1> <after> } 
    regex before { .*? } 
    regex after { .*? } 
    regex form1 { \s* <dd> <slash> <mon> <slash> <yy> \s* } 
    regex slash { \s* <[ \- \/ \. ]> \s* } 
    regex dd { \d ** 1..2 } 
    regex yy { (19 | 20)? \d\d } 
    proto regex mon {*} 
    regex mon:sym<jan> { \w 'an' \w* } 
    regex mon:sym<feb> { <sym> } 
    regex mon:sym<mar> { <[Mm]> 'ar' \w* } 
} 
class monAct { 
    method TOP ($/) { make $<unit>.map({.made}); } 
    method unit ($/) { make $<before> ~ $<form1>.made ~$<after>; } 
    method form1 ($/) { make $<dd>.made ~ $<mon>.made ~ $<yy>; } 
    method dd ($/) { 
     my $ddStr = $/.Str; 
     if $ddStr.chars == 1 { make "0" ~ $ddStr; } else { make $ddStr; } 
    } 
    method mon:sym<jan> ($/) { make "01"; }; 
    method mon:sym<feb> ($/) { make "02"; }; 
    method mon:sym<mar> ($/) { make "03"; }; 
} 

my $m = month.parse($test, actions => monAct.new); 
say $m; 
say $m.made;

但它说：

=== SORRY ===无法在类型的对象找方法 '安' NQPMu

我做了什么错！？感谢您的帮助！！！

来源

2016-11-24 lisprogtor

这看起来像是我在Rakudo中的一个bug，可能与before是lookahead assertions的语法的一部分有关。

它已经可以用一个简单的/ <before> /触发：

$ perl6 --version 
This is Rakudo version 2016.11-20-gbd42363 built on MoarVM version 2016.11-10-g0132729 
implementing Perl 6.c. 

$ perl6 -e '/ <before> /' 
===SORRY!=== 
Cannot find method 'ann' on object of type NQPMu

最起码，这是一个不到真棒错误信息的情况。

您应该将其报告给[email protected]，比较 How to report a bug。

来源

2016-11-24 23:33:01 Christoph

谢谢Christoph！我报告了这个错误。 – lisprogtor

[link to rt]（https://rt.perl.org/Public/Bug/Display.html?id=130218#txn-1437532）谢谢@lisprogtor – raiph

Perl6语法和操作错误：“无法找到方法'安'NQPMu类型的对象”

回答

相关问题