Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

Re: Setting default values in getopts

by maverick (Curate)
on Mar 27, 2002 at 17:29 UTC ( [id://154735] : note . print w/replies, xml ) Need Help??


in reply to Setting default values in getopts

jeffa is quite right...here's what I tend to do, since the next natural thing is to assign each option out into a meaningfully named scalar
my %opts; getopts("d:a:s:e:", \%opt); my $Directory = $opts{'d'} || '/home/maverick'; my $Address = $opts{'a'} || 'somewhere@overtherainbow.com'; my $Silent = $opts{'s'} || 0; my $Extended = $opts{'e'} || 0;
This way I don't have to remember what's in $opts{'d'} and neither does whoever reads my code later. Plus the defaults are really easy to spot.

/\/\averick
perl -l -e "eval pack('h*','072796e6470272f2c5f2c5166756279636b672');"