Help for this page

Select Code to Download


  1. or download this
    if ($mth eq "01") {$monnm = "January"};
if ($mth eq "02") {$monnm = "February"};
...
if ($mth eq "10") {$monnm = "October"};
if ($mth eq "11") {$monnm = "November"};
if ($mth eq "12") {$monnm = "December"};
  2. or download this
    my @months = qw/January February March April May June July August Sept
+ember October November Decemeber/;
# arrays are zero-indexed, so subtract one to 
# get from the month number to the array index:
$monnm = $months[$mnth - 1];