Getopt
忘れるのでメモ
Getopt::Long;
http://apollo.u-gakugei.ac.jp/~yoshiki/chalow/2003-01-20-1.html
use diagnostics; use Carp; use Data::Dumper; use English; use Getopt::Long; use File::Basename; sub test(){ my $opts = {}; my $ret = GetOptions( $opts , "d", "h|help", "o|output:s", ); if(defined($opts->{d})){ $Getopt::Long::debug =1; } print ("getOpt_dump:$ret:". Dumper($opts) ); if(defined($opts->{h})) { print "d:$opts->{h} \n"; } } test();