哈希將月份轉換爲數字

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