perl - 如何在 %/ 中保存匹配的订单？

Question

考虑以下规则

<rule: str>
   ( <[token1]> | <[token2]> ) +

以下输入的输出 ( %/) 将相同

input1: <token1> <token2> <token1>
input2: <token1> <token1> <token2>

这是因为第二个附加到名为“token1”的列表中的第一个，但没有提示与其他令牌匹配的顺序。

知道如何将匹配的订单保存到%/吗？

ps 我在用这个 %/ 魔法变量编译我的脚本时遇到问题。它总是在使用%/. 我假设编译器认为它是正则表达式的开始而不终止 /... 如果我正确使用它，请告诉我。

Answer 1

你通过<str>变成这样来完成它，所以你最终得到了这样<[str]> 的数组$/->{str}

#!/usr/bin/perl --
use strict; use warnings;
my $jp = do {
    use Regexp::Grammars;
qr{
# Keep the big stick handy, just in case...
    <debug:on>
    <debug:step>

<nocontext: >  # Switch on context substring retention

# Match this...
<[str]>+

<rule: str>
   ( <MATCH=token1> | <MATCH=token2> ) +

<rule: token1> \<token1\>
<rule: token2> \<token2\>


}ixs};

for my $str( 
    q{input1: <token1> <token2> <token1>},
    q{input2: <token1> <token1> <token2>},
) {
    print "#<<<<#  $str  \n\n";
    if( $str =~ $jp ){
        dd(\%/) ; #/
    } else {
        print "## fail to match \n";
    }
    print "\n#>>>>#\n\n";
}

sub dd {
    use Data::Dumper;
    print Data::Dumper->new([@_])->Useqq(1)->Indent(1)->Dump, "\n";
}
__END__
#<<<<#  input1: <token1> <token2> <token1>  

$VAR1 = {
  "str" => [
    "<token1>",
    "<token2>",
    "<token1>"
  ]
};


#>>>>#

#<<<<#  input2: <token1> <token1> <token2>  

$VAR1 = {
  "str" => [
    "<token1>",
    "<token1>",
    "<token2>"
  ]
};


#>>>>#