Perl Getopt ::長動態參數

Question

使用GetOpt :: Long，是否可以創建一個動態參數列表？

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

 
my %options =(); 
 
my @options = qw(dir force release); 
#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); 

* —原型可以改變允許哪些表現形式和表達是如何評估的。