哈希将月份转换为数字

Question

我使用哈希将月份转换为数字。

%mon2num = qw(
    jan 1  feb 2  mar 3  apr 4  may 5  jun 6
    jul 7  aug 8  sep 9  oct 10 nov 11 dec 12
);

这里我想让所有月份jan，feb..dec不区分大小写。让我知道怎么做。

Answer 1

使用lc：

for my $month (qw(Jan FEB mar)) {
    print "$month --> ", $mon2num{lc $month}, "\n";
}