0

次のルールを検討してください

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

出力 ( %/) は、次の入力に対して同じになります

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

これは、'token1' という名前のリスト内の最初のトークンに 2 番目のトークンが追加されるためですが、他のトークンとの一致順序に関するヒントはありません。

一致する注文をに保存する方法はあり%/ますか?

ps この %/ 魔法の変数を使用してスクリプトをコンパイルする際に問題があります。の使用に続く行で常にエラーが発生します%/。コンパイラは、/ を終了せずに正規表現の始まりと見なしていると思います...正しく使用しているかどうかを教えてください。

4

1 に答える 1

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>"
  ]
};


#>>>>#
于 2012-03-03T08:28:44.113 に答える