GetOptionsユーティリティを使用してPerlで 'オプションの'コマンドライン引数を処理する方法は？

Question

多くのPerlチュートリアルでは、GetOptionsユーティリティを使用して、期待されるコマンドライン引数のみを処理し、それ以外の場合は適切なメッセージで終了する方法について説明しています。

私は、のように、

• -z zip_dir_pathをオプションのコマンドライン引数を以下している私の要件に

  は：ヘルプを表示：出力

• -hを圧縮します。

私にはうまくいかなかったGetOptionsといくつかの組み合わせを試しました。
私の質問は：どのようにこの要件を処理するためにGetOptionsを使用するのですか？

EDIT：-zニーズ 'zipディレクトリーパス'

EDIT2： 私のスクリプトがある強制コマンドライン引数以下：

• -in input_dir_path：入力ディレクトリ
• -out output_dir_path：出力ディレクトリ

ここに私のコードです：

my %args; 
GetOptions(\%args, 
"in=s", 
"out=s" 
) or die &usage(); 

die "Missing -in!" unless $args{in}; 
die "Missing -out!" unless $args{out}; 

このEDITはより明確になります。

Answer 1

A : (colon)は、オプションの選択肢を示すために使用することができます：ドキュメントから

#!/usr/bin/env perl 

use strict; 
use warnings; 

use Getopt::Long; 

my ($zip, $help, $input_dir, $output_dir); 

GetOptions(
    'z:s' => \$zip, 
    'h'  => \$help, 
    'in=s' => \$input_dir, 
    'out=s' => \$output_dir, 
); 

Answer 2

1または0の値は、コマンドラインで取得する入力引数に基づいて、$zip_outputと$show_helpの値に設定する必要があります。

use strict; 
use warnings; 

use Getopt::Long; 

my $zip_output; 
my $show_help; 

GetOptions("z" => \$zip, "h" => \$show_help); 

Answer 3

：

: type [ desttype ] 
     Like "=", but designates the argument as optional. If omitted, an 
     empty string will be assigned to string values options, and the 
     value zero to numeric options. 

あなたはそれを指定して空の文字列をチェックした場合、あなたはどれを知っていますユーザーは指定しませんでした。