http://www.perlmonks.org?node_id=903896


in reply to Re^2: getopts and -?
in thread getopts and -?

http://search.cpan.org/~jv/Getopt-Long/lib/Getopt/Long.pm#Case_and_abbreviations

http://search.cpan.org/~jv/Getopt-Long/lib/Getopt/Long.pm#Bundling

http://search.cpan.org/~jv/Getopt-Long/lib/Getopt/Long.pm#Configuring_Getopt::Long

$ perl -MGetopt::Long -MDDS -e " Getopt::Long::Configure(qw[no_ignore_ +case]); GetOptions( \%h, qw[ l! L:s ] ); Dump(\%h); " -- -l -L asdf $HASH1 = { L => 'asdf', l => 1 };

use Getopt::Long qw[ :config no_ignore_case ]; use DDS; local @ARGV = qw[ -l -L asdf ]; GetOptions( \%h, qw[ l! L:s ] ); Dump( \%h ); __END__ $HASH1 = { L => 'asdf', l => 1 };