Làm cách nào để đặt giá trị mặc định bằng Getopt :: Std?

Question

Tôi đang cố gắng thu thập các giá trị từ dòng lệnh bằng cách sử dụng Getopt::Std trong tập lệnh Perl của tôi.

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; 

Ở đây hai biến đầu tiên ($ inputfile, $ outputfile) là bắt buộc nhưng biến cuối cùng ($ parameter_value) là tùy chọn và có thể bỏ qua.

Tôi đang cố gắng đặt một số giá trị theo mặc định thành biến cuối cùng ($ parameter_value) khi cờ -p bị bỏ qua tại dòng lệnh.

tôi đã cố gắng sử dụng này:

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

Đây đèo nó giá trị đúng khi cờ -p bị bỏ qua tại dòng lệnh. Nhưng vấn đề là khi tôi đang cung cấp một số giá trị từ dòng lệnh (ví dụ -p 58), cùng giá trị 20 được truyền cho chương trình thay vì 58 mà tôi đã chuyển từ dòng lệnh.

Bạn có thể giúp tôi bằng cách chỉ ra những sai lầm tôi đang thực hiện ở đây không?

Cảm ơn bạn.

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

Điều tốt nhất là sử dụng GetOpt::Long và sử dụng hàm băm thay vì các biến riêng lẻ. Sau đó, bạn có thể vượt qua các giá trị mặc định bằng cách di trú trước mảng

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

Tôi đề nghị thiết lập các biến lựa chọn giá trị mặc định trước khi gọi getopts. Ngoài ra, bạn có thể sử dụng biến $ opt_ trong thông báo sử dụng của mình để hiển thị các giá trị mặc định.

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";