最近はJavaを書くことが多かったので、偶にPerlを書くとついついはまりがち。 Perlにおいてエラーなんかをトラップするための方法として、evalがあります。 http://perldoc.perl.org/functions/eval.html で、まず一つ目としてこのevalはあくまで「関数」で…

use strict use Acme::ICFP2006::2D::Parser; my $f = Acme::ICFP2006::2D::Parser->parse("2d/mult.2d"); my $a = 3; my $b = 4; my $ans = $f->{modules}->{mult}->call(toIntExp($a), toIntExp($b)); print $ans->str; sub toIntExp{ my $a = shift; my $…