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

Question

我对 Perl 完全陌生，我正在尝试找出 Perl 脚本解析脚本参数的问题。

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

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

简而言之