perl - 在Perl中，将月份的缩写转换为数字的最简单或最有效的方法是什么？ (即 "jan"为1)

Question

如果导入库以使用方法，是否值得？导入会占用大量内存吗？

Answer 1

从here借来的

%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
);

并找回

$mon2num{"jan"}