▽1
●
匿名回答1号 ベストアンサー |
Perl5.8.0以降ならばswitch文が使えるかと思いますが、性能が悪くなりそうです。
http://www.donzoko.net/doc/memo/unlikeperl.html
sub sub_a { print "sub_a\n"; } sub sub_b { print "sub_b\n"; } $mode = "b"; # 関数のリファレンスをハッシュに持つ %table = ("a" => \&sub_a, "b" => \&sub_b); $table{$mode}->(); # eval は美しくない eval "&sub_" . $mode . "()";