Perl命令行參數

Question

我不知道如何去處理perl中的命令行參數，並希望有人能指出我的方向。

我的腳本將採取的參數是這樣的：

$perl my_script.pl server1_life=2 server1_ts=Ts server2_life=2 server2_ts=Age 

腳本需要能夠提取「生活」和時間戳值每個服務器。 目前我正在將參數存儲在數組中。

有沒有人知道以這種格式提取參數的好方法？

謝謝

Answer 1

那麼，人們總是可以手動解析參數。在這裏，我們希望每一個參數在=分裂和可能的結果存儲在一個哈希：

my %server_configs = map { split /=/, $_, 2 } @ARGV; 
#=> (
# server1_life => 2, 
# server1_ts => "Ts", 
# server2_life => 2, 
# server2_ts => "Age", 
# ) 

然而，參數處理通常應與Getopt::Long模塊進行：

use Getopt::Long; 

my %args; 
GetOptions(\%args, 'life=i@', 'ts=s@'); 

# combine the config parts for each server 
my @server_configs = map { [$args{ts}[$_], $args{life}[$_]] } 0 .. $#{ $args{ts} }; 
#=> ([Ts => 2], [Age => 2]) 

# or: 
my %server_configs; 
@server_configs{@{ $args{ts} }} = @{ $args{life} }; 
#=> (Ts => 2, Age => 2) 

例如被調用爲script.pl --ts=Ts --life=2 --ts=Age --life=2