将月份缩写转换为Perl中的数字最简单或最有效的方法是什么？ (即“jan”到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"}

原文地址：https://www.jb51.cc/Perl/172112.html