#!/usr/bin/perl use warnings; use Noactions; sub Post::NUM::action { return $_[1]; } sub Post::PLUS::action { "$_[1] $_[3] +"; } sub Post::TIMES::action { "$_[1] $_[3] *"; } my $debug = shift || 0; my $parser = Noactions->new( yyprefix => 'Post::'); print "Write an expression: "; my $x = <STDIN>; my $t = $parser->Run($debug, $x); print "$t\n" unless $parser->YYNberr;