如何用GetOptions定义CLI参数：指定时缺值报错，未指定则正常执行

要实现「指定--param1时必须提供输入值，完全不指定则程序正常运行」的需求，仅用GetOptions的param1=s或param1:s无法区分「显式指定参数但无值」和「未指定参数」两种情况，需要额外跟踪参数是否被显式指定，以下是两种可行实现方式：

方案一：利用回调函数跟踪指定状态 #

通过回调函数标记参数是否被用户显式指定，再结合参数值是否存在进行校验：

use strict;
use warnings;
use Getopt::Long;

my $param1;
my $param1_specified = 0;

# 初始化解析器并设置回调
my $parser = Getopt::Long::Parser->new;
$parser->configure('no_ignore_case');
$parser->getoptions(
    'param1=s' => sub {
        $param1_specified = 1;
        $param1 = $_[1];
    }
);

# 校验：显式指定了--param1但未提供值则报错
if ($param1_specified && !defined $param1) {
    die "Error: --param1 requires an input value\n";
}

# 正常程序逻辑
print "Program executed successfully\n";
if (defined $param1) {
    print "Received param1: $param1\n";
}

方案二：先检查命令行参数存在性 #

先遍历@ARGV判断--param1是否被显式输入，再结合解析结果校验：

use strict;
use warnings;
use Getopt::Long;

my $param1;
# 检查命令行中是否出现--param1
my $param1_present = grep { $_ eq '--param1' } @ARGV;

# 解析参数
GetOptions('param1=s' => \$param1);

# 校验：存在--param1但未解析到值则报错
if ($param1_present && !defined $param1) {
    die "Error: --param1 must be followed by an input value\n";
}

# 后续执行逻辑
print "Program running normally\n";
if (defined $param1) {
    print "param1 value: $param1\n";
}

原模式的局限性说明 #

• param1=s：当用户输入--param1不带值时，GetOptions会解析失败，但此时$param1仍为undef，和「未指定参数」的状态无法直接区分；
• param1:s：允许参数不带值，无论用户未指定还是指定了但无值，$param1都会被设为默认值（未设置默认则为undef），同样无法区分两种场景。

内容的提问来源于stack exchange，提问作者Hunter