GetOptions를 사용하여 후행 문자열을 찾는 방법?

Question

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

을 그리고 나는 (내가 두 번째 옵션를 입력하는 것을 잊었다 )과 같은 명령을 사용하는 경우

끝에 추가 문자열이있는 경우이를 감지하고 대신 오류가 표시되도록하려면 어떻게 적용 할 수 있습니까?

솔루션 :

이 적어도 내 경우 도움이 될 것입니다 추가 :

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

너무 짧은