3

Regexp::Grammars を試したところ、2 つの問題が発生しました。多分誰かが私を助けることができます。

use strict;
use warnings;
use Regexp::Grammars;

my $gr = 
qr
{       
    <debug: off>
    <warning: off>

    <root>

    <rule: root>
        ^<X=val> <O=op> <Y=val>$
        <MATCH=(?{ 
                if ($MATCH {O} eq "+")
                {
                    $MATCH = $MATCH {X} + $MATCH {Y};
                }
                elsif ($MATCH {O} eq "*")
                {
                    $MATCH = $MATCH {X} * $MATCH {Y};
                } 
                elsif ($MATCH {O} eq "/")
                {
                    $MATCH = $MATCH {X} / $MATCH {Y};
                } 
                print"\nCALC=$MATCH"; 
            })>

    <token: val>
        <X=([0-9]+)>
        <MATCH=(?{ print "\nVAL: " . $MATCH {X}; $MATCH = $MATCH {X}; 
        })>

    <token: op>
        <X=([\+\*\/])>
        <MATCH=(?{ print "\nOP: " . $MATCH {X}; $MATCH = $MATCH {X}; })>
    }xms;

##########################################

my $input = "10 + 3";

if ($input =~ $gr) 
{
    foreach (keys %/)
    {
        print "\nHSH: \"$_\" = " .  $/{$_};
    }
}

これが出力です。

VAL: 10
OP: +
VAL: 3
[eos]   \_____<grammar> matched '10 + 3'    
CALC=13
HSH: "" = 10 + 3
HSH: "root" = 1

私が見る限り、それは正しく機能しています。トークンの MATCH は、デバッグを少し改善するためのものです。

しかし、2点でよくわかりません。

  • この [eos] 行がまだあるのはなぜですか? デバッグを無効にしました。
  • ルート要素と結果ハッシュで結果 (CALC=13) を取得するにはどうすればよいですか? root=13 を期待していました。

手伝ってくれてありがとう！

よろしく、クリス

4

1 に答える 1

2

1 の原因となる root-rule の印刷であることがわかりました。それは、返品の問題のようです。ただし、最後のコマンドである場合は MATCH= 割り当てでも機能します。

于 2014-09-12T09:04:03.007 に答える