perl - Perl GetOptions() 区分大小写

Question

GetOptions(
    "r|repo=s"       =>   \$repo,
    "R|list-repos"   =>   \$list,
);

当我使用-r qwe选项调用此脚本时，$list更新为 1，这不是我所期望的。

如何使 GetOpt 区分大小写？

Answer 1

use Getopt::Long qw(:config no_ignore_case);

Answer 2

也启用捆绑修复它：

use Getopt::Long  qw(:config bundling);

从文档中：

当配置为捆绑时，单字符选项区分大小写，而长选项不区分大小写。要使单字符选项也匹配不区分大小写，请使用：

Getopt::Long::Configure ("bundling", "ignorecase_always");

作者补充说：

不言而喻，捆绑可能会相当混乱。