Getopt :: Stdを使用してデフォルト値を設定するにはどうすればよいですか？

Question

私はPerlスクリプトでGetopt::Stdを使ってコマンドラインから値を収集しようとしています。

use Getopt::Std; 
$Getopt::Std::STANDARD_HELP_VERSION = 1; 
getopts('i:o:p:'); 
my $inputfile = our $opt_i; 
my $outputfile = our $opt_o; 
my $parameter_value = our $opt_p; 

ここで最初の二つの変数（$入力ファイルは、$ OUTPUTFILE）が必須ですが、最後の変数（$ PARAMETER_VALUE）はオプションであり、無視することができます。

-pフラグがコマンドラインで無視されたときに、最後の変数（$ parameter_value）にデフォルト値を設定しようとしています。

は、私はこれを使用してみました：ここ

my $parameter_value = our $opt_p || "20"; 

そのパス-pフラグは、コマンドラインでは無視され、正しい値。しかし問題は、私がコマンドラインからいくつかの値を提供しているとき（例えば-p 58）、コマンドラインから渡された58の代わりに同じ値20がプログラムに渡されるときです。

ここで間違いを指摘して私を助けてもらえますか？

ありがとうございます。

Answer 1

#/usr/bin/perl 

use strict; 
use warnings; 

use Getopt::Std; 

getopts('i:o:p:'); 
our($opt_i, $opt_o, $opt_p); 

my $inputfile = $opt_i; 
my $outputfile = $opt_o; 
my $parameter_value = $opt_p || "20"; 

print "$_\n" for $inputfile, $outputfile, $parameter_value; 

 
C:\Temp> ks -iinput -ooutput -p55 
input 
output 
55 

 
C:\Temp> ks -iinput -ooutput 
input 
output 
20 

Answer 2

GetOpt::Longを使用し、個々の変数の代わりにハッシュを使用することをお勧めします。 そして、あなたは、配列を事前移入

use Getopt::Long; 
    my %opts = (parameter => 20); 
    GetOptions(\%opts, 
      'p|parameter=i', 
      'o|outputfile=s', 
      'i|inputfile=s' 
    ) or die "Invalid parameters!"; 

    # I didn't bother cloning STANDARD_HELP_VERSION = 1; 

Answer 3

してデフォルト値を渡すことができ、私は、getoptsはを呼び出す前にデフォルトにオプト変数を設定することをお勧めします。さらに、使用法のメッセージで$ opt_変数を使用して、デフォルト値を表示することもできます。

use Getopt::Std; 
$Getopt::Std::STANDARD_HELP_VERSION = 1; 
our $opt_p = 20; 
sub HELP_MESSAGE { print " -p parameter value (default $opt_p)\n"; } 
getopts('i:o:p:'); 
my $inputfile = our $opt_i; 
my $outputfile = our $opt_o; 
my $parameter_value = our $opt_p; 

Answer 4

#/usr/bin/perl 
use strict; 
use warnings; 
use Getopt::Std; 

$Getopt::Std::STANDARD_HELP_VERSION = 1; 

my %opts =(); 
getopts('i:o:p:', \%opts); 
my $inputfile = $opts{i}; 
my $outputfile = $opts{o}; 
my $parameter_value = $opts{p} || "20"; 
print "$inputfile, $outputfile, $parameter_value\n";