What is the easiest or most effective way to convert month's abbreviation to a number in Perl? (ie "jan" to 1)

jcee14 picture jcee14 · Oct 27, 2008 · Viewed 12.5k times · Source

If I import a library to use a method, would it be worth it? Does importing take up a lot of memory?

Answer

Oskar picture Oskar · Oct 27, 2008

borrowed from 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
);

and to retrieve

$mon2num{"jan"}