如何让Getopt::Long实现perl -i/git --color式非贪婪可选参数行为？

要实现类似perl -i或git --color的非贪婪可选参数解析逻辑（即可选参数必须与选项紧连/通过等号绑定，空格分隔的后续内容不作为选项参数），只需给Getopt::Long添加no_space_equals配置选项即可。

修改后的示例代码 #

#!/usr/bin/env perl
use warnings;
use strict;
use Getopt::Long;

our $color;
our $backup;
# 添加 no_space_equals 配置，禁用空格分隔选项与参数的方式
Getopt::Long::Configure(qw(no_bundling no_space_equals));
Getopt::Long::GetOptions(
    "color:s" => \$color,
    "i:s" => \$backup,
) or die(":-(\n");

printf("\$color = '%s'\n", $color // '(undef)');
printf("\$backup = '%s'\n", $backup // '(undef)');
printf("\@ARGV = '%s'\n", join(', ', @ARGV));

测试验证 #

运行目标命令：

./foo.pl -i .bak --color always meow moo

输出结果（与期望一致）：

$color = ''
$backup = ''
@ARGV = .bak, always, meow, moo

配置说明 #

no_space_equals的核心作用是禁止用空格代替等号传递参数：

• 短选项的可选参数必须紧跟在选项后（如-i.bak），而非用空格分隔（-i .bak会被视为选项-i无参数，.bak作为普通命令行参数）；
• 长选项的可选参数必须通过等号绑定（如--color=always），而非用空格分隔（--color always会被视为选项--color无参数，always作为普通命令行参数）。

正确传递可选参数的示例 #

若要给选项传递参数，需使用以下格式：

./foo.pl -i.bak --color=always meow moo

此时输出为：

$color = 'always'
$backup = '.bak'
@ARGV = meow, moo

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