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();