Perl Getopt :: Long Dynamic Parameters

Question

С помощью GetOpt :: Long возможно ли создать динамический список параметров?

myprog.pl --dir / tmp --force --releaes 1.2.3

my %options = (); <br /> my @options = qw(dir force release ); <br />#note dir and release take argument, and force is a flag my $result = GetOptions(\%options, \@optons); #or something like that print "dir $options{dir} \n"; #produces say /tmp print "force $options{force} \n"; # produces 1 or 0 print "release $options{release} \n"; # and so on

Спасибо

Answer 1

Это должно сработать:

my @options = qw(dir=s force release=s); 
...
my $result = GetOptions(\%options, @options);

Answer 2

Subs принимают список скаляров для аргументов. Этот список может быть сгенерирован из любого выражения *, включая массив.

my @options;
if (condition()) { # Dynamic
   @options = qw( dir=s force release=s );
} else {
   @options = ...;
}

GetOptions(\%options, @optons);

* & mdash; Прототипы могут изменить то, какие выражения разрешены и как выражение оценивается.