如何使用Perl的Getopt::Long模块检测未传入任何选项？

要实现脚本在未带任何选项调用时自动输出帮助信息，核心思路是跟踪是否有任何选项被解析到——因为@ARGV == 0仅判断是否剩余非选项参数，无法反映是否传入了选项。以下是具体实现方案：

方法1：用标志变量跟踪选项触发状态 #

初始化一个标志变量，在每个选项的处理逻辑中将其设为1，解析完成后检查该标志是否仍为0，以此判断是否未传入任何选项。

示例代码：

use strict;
use warnings;
use Getopt::Long;
use Pod::Usage;

# 初始化选项变量和标志
my $help = 0;
my $verbose = 0;
my $input_file;
my $has_options = 0;

# 解析选项，每个选项触发时设置标志
GetOptions(
    'help'      => sub { $help = 1; $has_options = 1; },
    'verbose'   => sub { $verbose = 1; $has_options = 1; },
    'input=s'   => sub { $input_file = $_[1]; $has_options = 1; },
) or pod2usage(2);

# 处理帮助请求或无选项的情况
if ($help || !$has_options) {
    pod2usage(
        -verbose => 1,
        -exitval => 0,
    );
}

# 后续脚本逻辑
# ...

方法2：检查所有选项变量是否未被赋值 #

如果你的选项都是无默认值的开关或参数选项，可以直接检查所有接收选项的变量是否都未被定义（仅适用于无默认值的场景）。

示例代码：

use strict;
use warnings;
use Getopt::Long;
use Pod::Usage;

# 初始化选项变量（无默认值）
my ($help, $verbose, $input_file);

# 解析选项
GetOptions(
    'help'      => \$help,
    'verbose'   => \$verbose,
    'input=s'   => \$input_file,
) or pod2usage(2);

# 判断是否无选项传入或请求帮助
if ($help || (!defined $help && !defined $verbose && !defined $input_file)) {
    pod2usage(1);
}

# 后续脚本逻辑
# ...

为什么@ARGV == 0无效？ #

Getopt::Long会自动将解析后的选项从@ARGV中移除，@ARGV最终仅保留非选项的位置参数。比如运行./script.pl --help时，@ARGV会是空数组，但实际上已经传入了选项，因此无法用@ARGV == 0判断是否有选项传入。

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