Parse::RecDescent语法未按预期工作

Question

我所能做的只是字符串、PARAMS、VARIABLE和FUNCNAMEFUNCTION似乎有问题，但我就是看不出来。

use strict;
use Parse::RecDescent;
$::RD_ERRORS = 1; # Make sure the parser dies when it encounters an error
$::RD_WARN   = 1; # Enable warnings. This will warn on unused rules &c.
$::RD_HINT   = 1; # Give out hints to help fix problems.
my $grammar = <<'_GRAMMAR_';
            SCRIPT : INSTRUCTION(s /;/)
            INSTRUCTION: FUNCTION | VARIABLE "=" FUNCTION
            FUNCTION : FUNCNAME "[" PARAMETERS "]"
            FUNCNAME : "print" | "add2" | "save" # ok
            PARAMETERS : STRING | STRING /s*,s*/ PARAMETERS # ok
            VARIABLE : /w[A-Za-z-0-9]{0,10}/i # ok
            STRING : /'(?:[^'\]|\.)*'/ # ok
    _GRAMMAR_
my $parser2 = Parse::RecDescent->new($grammar);
#i test every rule here
print "STRING OKn" if $parser2->STRING("'asd'");
print "PARAMS OKn" if $parser2->PARAMETERS("'asd','XCV','vfgdg'");
print "SCRIPT OKn" if $parser2->SCRIPT(q(print['hola','asd'];save['hello'];));
print "VARIABLE OK n" if $parser2->VARIABLE("a1");
print "FUNCTION OKn" if $parser2->FUNCTION(q(print['hola','asd']));
print "FUNCNAME OKn" if $parser2->FUNCNAME(q(print));
print "INSTRUCTION OKn" if $parser2->FUNCTION(q(a0=print['hola','asd'];));

有什么帮助吗？顺便说一句，我的目标是：

variable=functioname['param1','param2','paramN'];
function2['param1'];
etc etc

Answer 1

这对我有用（尤其是[A-Za-z0-9]）：

my $grammar = <<'_GRAMMAR_';
            SCRIPT : INSTRUCTION(s /;/) /Z/
            INSTRUCTION: VARIABLE EQ FUNCTION | FUNCTION
            FUNCTION : FUNCNAME '[' PARAMETERS ']'
            FUNCNAME : "print" | "add2" | "save" 
            PARAMETERS : STRING(s /,/) 
            VARIABLE : /(w[A-Za-z0-9]{0,10})/i 
            EQ: '=' 
            STRING : /'(?:[^'\]|\.)*'/ # ok
_GRAMMAR_