GetOptionsを使用して末尾の文字列を検出する方法？

Question

私はPerlを初めてお使いになり、Perlスクリプトの解析スクリプト引数に問題がないかどうかを調べようとしています。

私は、次のPerlスクリプトと呼ばれるsample-perl.plあります

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

：

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

をそして私は（私は2番目のオプションを入力し忘れた）のようなコマンドを使用している場合

最後に追加の文字列がある場合、それが検出され、代わりにエラーが表示されるように強制する方法はありますか？

ソリューション：

これは、少なくとも私の場合を助ける追加：

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. 
} 

短いので