は、どのように私はPerlのGetoptので

Question

::ロングバージョン2.39は、私は私が-cを使用している場合、デフォルト値は%optsで20置かれることを示すために

use Getopt::Long qw(:config gnu_getopt); 
GetOptions(
    \my %opts, 
    "codon-view|c:20", # Optional value, default 20 
    "consensus|C:50", 
    ... 
) 

を使用することができ、デフォルトオプションの値を設定しませんcodon-viewの場合、-cが指定されていますが、明示的な値はありません。一方、-cまたは--codon-viewが指定されていない場合、ハッシュテーブルの値は%optsに格納されません。 2.48この中

はもはや機能していないと私はどのように私は古い動作を達成することができますGetopt::Long's documentation

$ perl -E' 
    use Getopt::Long qw(:config gnu_getopt); 
    say $Getopt::Long::VERSION; 
    GetOptions(\my %opts, "codon-view|c:20"); 
    say $opts{"codon-view"} // "[undef]" 
' -- -c 
2.39 
20 

$ perl -E' 
    use Getopt::Long qw(:config gnu_getopt); 
    say $Getopt::Long::VERSION; 
    GetOptions(\my %opts, "codon-view|c:20"); 
    say $opts{"codon-view"} // "[undef]" 
' -- -c 
2.48 
[undef] 

に表示されないのですか？

ヘルプ！

Answer 1

これは2.48で導入された変更です。

$ perl -E' 
    use Getopt::Long qw(:config gnu_getopt); 
    say $Getopt::Long::VERSION; 
    GetOptions(\my %opts, "codon-view|c:20"); 
    say $opts{"codon-view"} // "[undef]" 
' -- -c 
2.47 
20 

$ perl -E' 
    use Getopt::Long qw(:config gnu_getopt); 
    say $Getopt::Long::VERSION; 
    GetOptions(\my %opts, "codon-view|c:20"); 
    say $opts{"codon-view"} // "[undef]" 
' -- -c 
2.48 
[undef] 

私はわからないんだけど、私はそれが意図せずに行われていたと思うので、私はbug reportを提出しました。

---

use Getopt::Long qw(:config gnu_getopt); 

投資をどのように

use Getopt::Long qw(:config gnu_compat bundling permute no_getopt_compat); 

のために短いです、あなたはgnu_compatを使用していますか？

$ perl -E' 
    use Getopt::Long qw(:config gnu_getopt); 
    say $Getopt::Long::VERSION; 
    GetOptions(\my %opts, "codon-view|c:20"); 
    say $opts{"codon-view"} // "[undef]" 
' -- -c 
2.48 
[undef] 

$ perl -E' 
    use Getopt::Long qw(:config gnu_compat bundling permute no_getopt_compat); 
    say $Getopt::Long::VERSION; 
    GetOptions(\my %opts, "codon-view|c:20"); 
    say $opts{"codon-view"} // "[undef]" 
' -- -c 
2.48 
[undef] 

$ perl -E' 
    use Getopt::Long qw(:config bundling permute no_getopt_compat); 
    say $Getopt::Long::VERSION; 
    GetOptions(\my %opts, "codon-view|c:20"); 
    say $opts{"codon-view"} // "[undef]" 
' -- -c 
2.48 
20 

gnu_compatコントロールが--opt=かどうかを許可され、それが何をすべきか。 gnu_compatを指定しないと、--opt=にエラーが発生します。 gnu_compatでは、--opt=はオプションoptと空の値を与えます。これがGNU getopt_long（）のやり方です。あなたは--codon-view=が$opts{"codon-view"}にゼロを代入して、OKなら

だから、単にここでもう一つの可能​​性が、あまり良い解決策がある

use Getopt::Long qw(:config bundling permute no_getopt_compat); 

代わりの

use Getopt::Long qw(:config gnu_getopt); 

Answer 2

GetOptions()コールの前にデフォルト値を設定します。オプションがコマンドラインで指定されていない場合、デフォルト値は上書きされません。

$ perl -MGetopt::Long -E '$c=20;GetOptions("c=i"=>\$c); say $c' -- -c 14 
14 

$ perl -MGetopt::Long -E '$c=20;GetOptions("c=i"=>\$c); say $c' -- 
20 

Getopt::Longドキュメントのa trivial exampleがあります。

Answer 3

私は、ユーザーが引数なしで./you-app -cを実行している場合

GetOptions(\ my %opt, 
    'codon-view|c:i', 
); 

if (exists $opt{'codon-view'}) { 
    print "User triggered '-c' flag\n"; 
    $opt{'codon-view'} ||= 20; 
    printf("codon-view: %d\n", $opt{'codon-view'}); 
} 

は今、$opt{c}キーが作成されますが、それは価値ですがundefあります。..ハッシュに私のOPTSを割り当てることが好きなので、あなたくらいのチェックそれならばexistsでトリガーされました。

||=オペレータは、左側がfalsey（通常はundef）の場合にのみ、右側に右側を割り当てます。注意する点は、誰かが-c 0を実行すると、デフォルトを割り当てます...しかし、私は先に進んで、0がおそらくあなたのフラグのための悪い議論であると仮定します。

Answer 4

使用：のコピーが含まれますGetopt :: Long.pm、それは唯一のファイルですが、私はパッケージの名前空間を別のものに変更しました。 MyPackage :: GetoptLong。

これは理想的な回答ではありませんが、互換性を保つために何かが必要であり、より良い池上の解決策を持っていない場合は、心に留めておいてください。