http://d.hatena.ne.jp/tokuhirom/20120413/1334282197 を勝手に添削。 my $src = "11*3+2/2"; use Data::Dumper; print Dumper(parse($src)); exit; sub parse { my $src = shift; my $ret = expression(\$src); if ($src) { die "Parse failed: $src"; } $…