如何使用GetOptions检测尾随字符串？

Question

我对Perl绝对陌生，我试图找出Perl脚本解析脚本参数的问题。

我有以下的Perl脚本称为sample-perl.pl：

use strict; 
use warnings; 
use 5.010; 
use Getopt::Long qw(GetOptions); 

my $source_address; 
my $dest_address; 

GetOptions('from=s' => \$source_address, 
      'to=s' => \$dest_address) or die "Usage: $0 --from NAME --to NAME\n"; 
if ($source_address) { 
    say $source_address; 
} 

if ($dest_address) { 
    say $dest_address; 
} 

如果我使用像这样的命令（，我忘了进入第二个选项）：

perl sample-perl.pl --from nyc lon 
Output will be: nyc 

我该如何执行，如果最后有一个附加字符串，它会被检测到，并显示一个错误？

解决方案：

增加，这将帮助我的情况下，至少：

if(@ARGV){ 
    //throw error 
} 

Answer 1

调用GetOptions后，请检查@ARGV阵列中的任何其余的命令行选项。这是假设所有的意外参数将产生一个错误：

use strict; 
use warnings; 
use 5.010; 
use Getopt::Long qw(GetOptions); 

my $source_address; 
my $dest_address; 

GetOptions('from=s' => \$source_address, 
      'to=s' => \$dest_address) or die "Usage: $0 --from NAME --to NAME\n"; 

@ARGV and die "Error: unexpected args: @ARGV"; 

if ($source_address) { 
    say $source_address; 
} 

if ($dest_address) { 
    say $dest_address; 
} 

Answer 2

我正忙着回答，我看它现在回答，只是一些额外的信息。

use strict; 
use warnings; 
use 5.010; 
use Getopt::Long qw(GetOptions); 

my $source_address; 
my $dest_address; 

GetOptions('from=s' => \$source_address, 
     'to=s' => \$dest_address) or die "Usage: $0 --from NAME --to NAME\n"; 

@ARGV and die "To many arguments after --from or --to : @ARGV "; 

if ($source_address) { 
say $source_address; 
} else { 
say "Error: No Source specified"; #Check to see if --from is actually specified, else print error. 
} 

if ($dest_address) { 
say $dest_address; 
} else { 
say "Error: No destination specified"; #Check to see if --to is actually specified, else print error. 
} 

因此，在短期