如何使用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. 
} 

因此，在短期