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