Multidimensional arrays and for loops - arrays

Question

i have this code >
if ($firstDayOfTheMonth == "Monday")
{
$eachDay["monday1"]="1st";
$eachDay["tuesday1"]="2nd";
$eachDay["wednesday1"]="3rd";
$eachDay["thursday1"]="4th";
$eachDay["friday1"]="5th";
$eachDay["saturday1"]="6th";
$eachDay["sunday1"]="7th";
$eachDay["monday2"]="8th";
$eachDay["tuesday2"]="9th";
$eachDay["wednesday2"]="10th";
$eachDay["thursday2"]="11th";
$eachDay["friday2"]="12th";
$eachDay["saturday2"]="13th";
$eachDay["sunday2"]="14th";
$eachDay["monday3"]="15th";
$eachDay["tuesday3"]="16th";
$eachDay["wednesday3"]="17th";
$eachDay["thursday3"]="18th";
$eachDay["friday3"]="19th";
$eachDay["saturday3"]="20th";
$eachDay["sunday3"]="21st";
$eachDay["monday4"]="22nd";
$eachDay["tuesday4"]="23rd";
$eachDay["wednesday4"]="24th";
$eachDay["thursday4"]="25th";
$eachDay["friday4"]="26th";
$eachDay["saturday4"]="27th";
$eachDay["sunday4"]="28th";
$eachDay["monday5"]="29th";
$eachDay["tuesday5"]="30th";
$eachDay["wednesday5"]="31st";
}
and i wondered if anyone could help me condense it down into a loop?
The code is far too long and messy and i would love to shorten it down

Answer 1

One probable implementation assuming its perl
use strict;
sub dayHash {
my $firstDayOfMonth = lc(shift);
my #days = qw(monday tuesday wednesday thursday friday saturday sunday);
my $start = -1;
my $i;
for ( $i = 0; $i < $#days; $i++ ) {
if ( $firstDayOfMonth eq $days[$i] ) {
$start = $i;
last;
}
}
my %eachDay = ();
my $suffix = 1;
my $key;
my $val;
for ( $i = 1; $i <= 31; $i++ ) {
$key = "$days[$start++]$suffix";
if ( $start > $#days ) {
$start = 0;
$suffix++;
}
if ( ($i % 10) == 1 && int($i / 10) != 1 ) {
$val = $i. 'st';
} elsif ( ($i % 10) == 2 && int($i / 10) != 1 ) {
$val = $i . 'nd';
} elsif ( ($i % 10) == 3 && int($i / 10) != 1 ) {
$val = $i . 'rd';
} else {
$val = $i . 'th';
}
$eachDay{$key} = $val;
}
return %eachDay
}
my $firstDayOfMonth = "Monday";
my %eachDay = dayHash($firstDayOfMonth);