2008-03-26 メモ Perl my %cmd = ( foo => sub {...}, bar => sub {...}, ); my $c = shift; $cmd{$c} or die; $cmd{$c}->(@ARGV); いわゆる一つのディスパッチテーブル。