Re: Convert month name to number

[japhy]

You want a hash.

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

print $mon2num{ lc substr($month, 0, 3) };

That works for "JANUARY", "Mar", "decemb.", "oct", and many other variants.

[RhetTbull]

Great implementation japhy! A word of warning to the wise that if you plan on using this with POSIX mktime and friends you'll want to subtract 1 from the month number (e.g. January = 0, December = 11).