Perl 커맨드 라인 인수

Question

나는 펄에서 커맨드 라인 인자를 처리하는 법을 잘 모르며, 누군가가 올바른 방향으로 나아갈 수 있기를 바랬다.

내 스크립트는 다음과 같이 인수를 취합니다

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

스크립트는 각 서버의 '삶'과 타임 스탬프 값을 추출 할 수 있어야합니다. 현재 인수를 배열에 저장하고 있습니다.

누구든지이 형식으로 인수를 추출하는 좋은 방법을 알고 있습니까?

감사합니다.

Answer 1

글쎄, 항상 수동으로 인수를 구문 분석 할 수 있습니다. 여기, 우리는 =에서 각 인수를 분할 아마 해시 결과를 저장하려면 :

그러나, 인수 처리는 일반적으로 Getopt::Long 모듈을 수행해야합니다

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

:

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