Perl: Regexp:: Грамматика

Question

Я попробовал 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

Насколько я вижу, он работает правильно. МАТЧ в токенах только для меня, чтобы немного лучше отладить.

Но я не уверен с 2 очками.

• Почему до сих пор эта линия [eos]? Я отключил отладку.
• Как я могу получить результат (CALC=13) в корневом элементе и, следовательно, в хеше результата? Я ожидал, что root=13.

Спасибо за помощь!

С наилучшими пожеланиями, Крис

Answer 1

Только что выяснилось, что это печать в корневом правиле, которая вызывает 1. Кажется, это больше проблема возврата. Но он также работает с MATCH= assign, если это последняя команда.