Perl : Getopt::Long 参数区分大小写

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

GetOptions (\%h,
    'type|t=s',
    'host|h=s',
    'usr|u=s',
    'passwd|p=s',
    'port|P=s',
‍);

‍