Re: Dynamic option

I was surprised a feature was recently added to Getopt::Long (2.35, to be specific) to addresses this very need!

$ perl -MData::Dumper -MGetopt::Long -e'
   my %options = ( input => [] );
   GetOptions(\%options, "input=s{0,}", "des=s", "r=i")
      or die;
   print(Dumper(\%options));
' -- -input data modem apps -des "finding files" -r 1000
$VAR1 = {
          'r' => 1000,
          'input' => [
                       'data',
                       'modem',
                       'apps'
                     ],
          'des' => 'finding files'
        };
[download]

It's marked as experimental.

Comment on Re: Dynamic option Download Code

Replies are listed 'Best First'.
Re^2: Dynamic option by Anonymous Monk on Mar 16, 2011 at 03:57 UTC
Thanks but my problem is on how to access these options?.I want to run a for loop for all the options entered <code>	[reply]
Re^3: Dynamic option by ikegami (Patriarch) on Mar 16, 2011 at 06:15 UTC
`for (@{ $options{input} }) {` [download]	[reply] [d/l]
Re^3: Dynamic option by Anonymous Monk on Mar 16, 2011 at 05:31 UTC
Hi,is there a way to add options to option values?meaning ,in the below example the option is "input" and it's values are data,modem,apps but for these values I want to add options (-nd -na -nc)?Can someone pls advise how can I achieve that? `EXAMPLE:- findfiles -input [-nd -na ] data [-nc -nd] modem apps -des "finding fi +les" -r 1000 Basically ,pseudco code of what I want to achieve is below.Really appr +eciate if someone can give me the perlversion of the code. for each "input option value" { call function A if not exits nd call function B if not exits na call function C if not exists nc }` [download]	[reply] [d/l]
Re^4: Dynamic option by ikegami (Patriarch) on Mar 16, 2011 at 06:19 UTC
You'll need a different parser.	[reply]
Re^5: Dynamic option by Anonymous Monk on Mar 16, 2011 at 12:14 UTC
Re^5: Dynamic option by Anonymous Monk on Mar 16, 2011 at 06:25 UTC
Re^6: Dynamic option by ikegami (Patriarch) on Mar 16, 2011 at 06:28 UTC

In Section Seekers of Perl Wisdom