다차원 배열과 루프

Question

위해이 코드>

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"; 

} 

이 있고 사람이 나를 루프에 그것을 아래로 응축 도움이 될 수 있다면 내가 궁금해? 코드가 너무 길고 지저분하고 나는 그것의 펄 가정

Answer 1

하나의 가능한 구현을 내려 단축 사랑

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