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");

作者补充道：

不言而喻，捆绑可能会非常令人困惑。