http://qs1969.pair.com?node_id=154735


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');"