Re: getopts and -?

getopts('oif:', \%opts);  # options as above. Values in %opts
[download]

no strict 'refs';
warn local ${"opt_?"} = 6;
[download]

use Getopt::Long;
GetOptions( q!help|h|?! => \$help );
[download]

$ perl -MGetopt::Long -e " my $help; GetOptions( q!help|h|?! => \$help
+ ); warn $help; " -- --help
1 at -e line 1.

$ perl -MGetopt::Long -e " my $help; GetOptions( q!help|h|?! => \$help
+ ); warn $help; " -- -h
1 at -e line 1.

$ perl -MGetopt::Long -e " my $help; GetOptions( q!help|h|?! => \$help
+ ); warn $help; " -- -?
1 at -e line 1.

$ perl -MGetopt::Long -e " my $help; GetOptions( q!help|h|?! => \$help
+ ); warn $help; " -- -f
Unknown option: f
Warning: something's wrong at -e line 1.
[download]

Comment on Re: getopts and -? Select or Download Code

Replies are listed 'Best First'.
Re^2: getopts and -? by viffer (Beadle) on May 10, 2011 at 02:35 UTC
Thanks for both your help. I have now got it working aside of one issue. `our ( $opt_d,$opt_h,$opt_l,$opt_L,$opt_i,$opt_o,$opt_P,$opt_p,$opt_q,$ +opt_r,$opt_v,$opt_c,$opt_z ); # 'L' =>\$opt_L, # 'p' =>\$opt_p, GetOptions ( 'd' =>\$opt_d, 'h' =>\$opt_h, 'l' =>\$opt_l, 'i' =>\$opt_i, 'o:s' =>\$opt_o, 'P:s' =>\$opt_P, 'q' =>\$opt_q, 'r' =>\$opt_r, 'v:s' =>\$opt_v, 'c' =>\$opt_c, 'help\|?!' =>\$opt_z, );` [download] If I include both upper and lower case options L and P I end up getting the error message 'Duplicate specification "L" for option "l"' Is there a way to parse both upper and lower case characters for the same letter? Appreciate your time and help.	[reply] [d/l]
Re^3: getopts and -? by Anonymous Monk on May 10, 2011 at 02:52 UTC
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 };` [download] `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 };` [download]	[reply] [d/l] [select]
Re^4: getopts and -? by viffer (Beadle) on May 10, 2011 at 02:57 UTC
Thank you, I should learn in future to take more time before i ask a question. You were typing a response at the same time as i was asking the question! :)	[reply]
Re^3: getopts and -? by viffer (Beadle) on May 10, 2011 at 02:43 UTC
Oops..posted my version prior to reading your responses (honest i had got there off my own accord!) but like your versions, you both have "L & l" and "P & p" which getoptions doesn't seem to like, thinking they are duplicates.	[reply]
Re^4: getopts and -? by viffer (Beadle) on May 10, 2011 at 02:49 UTC
Case and abbreviations Without additional configuration, GetOptions() will ignore the case of option names, and allow the options to be abbreviated to uniqueness. Just wondering if anyone knows what "additional configuration" is required?	[reply]
Re^5: getopts and -? by viffer (Beadle) on May 10, 2011 at 02:54 UTC