Re: getopts and -?

[Anonymous Monk]

in reply to getopts and -?

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

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

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

$ 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.

[viffer]

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

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.

[viffer]

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.

[viffer]

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?

[Anonymous Monk]

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
         };

[viffer]

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! :)