Perl getOptions () Sensibilité à la caisse

Question

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

Quand j'appelle ce script avec -r qwe option, $list est mis à jour vers 1, ce qui n'est pas ce que j'attends.

Comment puis-je rendre la casse getopt sensible?

Answer 1

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

Answer 2

Permettre également du regroupement le corrige également:

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