perlのコマンドラインオプション

Question

多くのコマンドラインオプションを渡して私のperlスクリプトを呼び出します。スクリプトの起動中に必要なコマンドラインオプションがユーザーによって渡されない場合、スクリプトは終了する必要があります。現在、私はif statementを使って簡単なチェックをしています。必要な引数が10より大きい場合は、If文を使用してclunkyになります。私はif文を使うよりも良い方法があるのだろうかと思っています。

コマンドラインオプション：

sub startup { 
    my ($self) = @_; 

    GetOptions (
     "endpoint|e=s"   => \$self->{'endpoint'}, 
     "port|pt=s"    => \$self->{'port'}, 
     "client|c=s"    => \$self->{'client'}, 
     "client_interface|ci=s" => \$self->{'client_interface'}, 
     "origin|o=s"    => \$self->{'origin'}, 
     "origin_interface|oi=s" => \$self->{'origin_interface'}, 
     "customer_id|cid=s"  => \$self->{'customer_id'}, 
     "endpoint_id|eid=s"  => \$self->{'endpoint_id'}, 
     ) || $self->abort("Invalid command line options. 
       Valid options are endpoint,port,client,client_interface, 
    origin,origin_interface,customer_id,endpoint_id"); 

#Terminate --endpoint IPと--customer idとは、スクリプトを呼び出すために

if (!$self->{'endpoint'} || !$self->{'customer_id'} || !$self->{'client'}){ 
     $self->abort('[Startup] endpoint customer and client are required arguments.' 
         . 'Please provide --endpoint and --customer id and -- client '); 
    } 

コマンドを--client渡されていない場合は、スクリプトの実行：

./testframework --scriptname -- --endpoint=198.18.179.42 --port=5000 --client=1.1.1.1 --client_interface=2.2.2.2 --origin=3.3.3.3 --origin_interface= --Outertunnel=Tunnel0 --Innertunnel=Tunnel2 --customer_id=900010 --endpoint_id=2859588 

Answer 1

以下のバージョンがclunkinessの一部を削除します。

my @required = qw(endpoint customer_id client); 

if (my @missing = grep { !$self->{$_} } @required) { 
    $self->abort("[Startup] Missing required arguments: @missing"); 
} 

Answer 2

一つの方法は、List::Utilからallを使用することです：

unless (all { defined $self->{$_} } qw(endpoint customer_id client)){ 
    # error 
} 

あなたがList::Utilの最新バージョンを持っていない場合、あなたはちょうどあなたがあなたのハッシュで定義されたキーの適切な数を持っていることを確認するためにチェックすることができList::MoreUtils

Answer 3

を使うのか？

my @options = grep { defined $self->{$_} } keys %{$self}; 
die "Missing options\n" unless @options == 10; 

それとも、自分の使用方法の説明文がより明確になりたい場合：より具体的なエラーメッセージを提供しながら、

for my $opt (keys %{$self}) { 
    die "Missing option --$opt\n" unless defined $self->{$opt}; 
}