my %cmd = ( foo => sub {...}, bar => sub {...}, ); my $c = shift; $cmd{$c} or die; $cmd{$c}->(@ARGV); いわゆる一つのディスパッチテーブル。
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。