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

Re^3: getopts and -?

by Anonymous Monk
on May 10, 2011 at 02:52 UTC ( #903896=note: print w/ replies, xml ) Need Help??

in reply to Re^2: getopts and -?
in thread getopts and -?

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

Comment on Re^3: getopts and -?
Select or Download Code
Re^4: getopts and -?
by viffer (Sexton) 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! :)

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://903896]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (8)
As of 2015-03-27 08:58 GMT
Find Nodes?
    Voting Booth?

    When putting a smiley right before a closing parenthesis, do you:

    Results (600 votes), past polls