Another Getopt::Long questions

dragonchild has asked for the wisdom of the Perl Monks concerning the following question:

I've got the following call:

my %options;
GetOptions(
    \%options,
    'length|height=i',
);
[download]

As that stands, the option will be put into either $options{length} or $options{height}. Is there some way I can force Getopt::Long to always put it into $options{length}?

(And, yes, I've RTFM'ed. It talks about synonyms and it talks about hashrefs, but it doesn't talk about synonyms and hashrefs together.)

------
We are the carpenters and bricklayers of the Information Age.

Don't go borrowing trouble. For programmers, this means Worry only about what you need to implement.

Please remember that I'm crufty and crochety. All opinions are purely mine and all code is untested, unless otherwise specified.

Comment on Another Getopt::Long questions Select or Download Code

Replies are listed 'Best First'.
Re: Another Getopt::Long questions by Enlil (Parson) on Apr 09, 2003 at 23:46 UTC
I believe your code does what you want. Using the following code: `use strict; use warnings; use Getopt::Long; use Data::Dumper; my %options; GetOptions( \%options, 'length\|height=i', ); print Dumper \%options;` [download] I get the following: `E:\>go.pl --height=1 $VAR1 = { 'length' => 1 }; E:\>go.pl --length=1 $VAR1 = { 'length' => 1 };` [download] -enlil	[reply] [d/l] [select]
Re: Re: Another Getopt::Long questions by kelan (Deacon) on Apr 10, 2003 at 14:42 UTC
I don't remember if it's mentioned specifically in the POD, but from my usage, the first option is always the name of the key it will use. This is handy when you want to use one character options or bundling. As in: `use Getopt::Long; Getopt::Long::Configure('bundling'); my %options; GetOptions( \%options, 'LongName\|L=s' ); if ($options{LongName}) { # do something with $options{LongName} }` [download] And the user can specify that option either as: `prog.pl --longname something` [download] or `prog.pl -L something` [download] kelan Perl6 Grammar Student	[reply] [d/l] [select]
Re: Another Getopt::Long questions by Ovid (Cardinal) on Apr 09, 2003 at 23:46 UTC
Update: Hmmm... I guess was thinking about Getopt::Standard. enlil's answer appears correct and my reference below is superfluous. Try this: `#!/usr/bin/perl -w use strict; use Getopt::Long; use Data::Dumper; my %options; GetOptions( \%options, 'length\|height=i' => \$options{length} ); print Dumper \%options;` [download] Cheers, Ovid New address of my CGI Course. Silence is Evil (feel free to copy and distribute widely - note copyright text)	[reply] [d/l]
Re: Another Getopt::Long questions by dragonchild (Archbishop) on Apr 10, 2003 at 14:12 UTC
blushes Never post a question after 9.5 hours after two 12 hour days. Always post it in the morning. It's amazing what changes ... "I don't know why, but it works now!" is a really embarassing thing to say! ------ We are the carpenters and bricklayers of the Information Age. Don't go borrowing trouble. For programmers, this means Worry only about what you need to implement. Please remember that I'm crufty and crochety. All opinions are purely mine and all code is untested, unless otherwise specified.	[reply]


Don't ask to ask, just ask
	PerlMonks