@item
#!/usr/bin/env perl use strict; use Parse::RecDescent; use Data::Dumper; my $grammar = q{ inputs : 'a' 'b' { print "* ", Data::Dumper::Dumper(@item); print "* ", Data::Dumper::Dumper($item[0]); print "* ", Data::Dumper::Dumper($item[1]); print "* ", Data::Dumper::Dumper($item[2]); print "* ", Data::Dumper::Dumper($item[-1]); } }; my $parse = new Parse::RecDescent ($grammar); while (<>) { defined $parse->inputs($_) or print "Bad text!\n"; }
で、
ab * $VAR1 = 'inputs'; $VAR2 = 'a'; $VAR3 = 'b'; * $VAR1 = 'inputs'; * $VAR1 = 'a'; * $VAR1 = 'b'; * $VAR1 = 'b';