perl - 哈希将月份转换为数字

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