Perlでカレンダーを作っているのですが、祝日の表示が上手くいきません

質問

祝日の日の数字を赤で表示させたいのですが、なかなか上手くいきません。アドバイスをお願いします。

まず、一月だけで試しています。

my @mk1 = (1,10);
my @kyu = ('','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','');

と、はじめにリストを用意し、カレンダーの数字を表示する手前で
my $dayCount = $startDay;
if($month == 1) {
for(my $a = 1; $a <= $monthDays[$month-1]; $a++) {
for(my $c = 0; $c < @mk1; $c++) {
if($mk1[$c] == $a) { $kyu[$a-1] = 1;}
else {$kyu[$a-1] = 0;}
}
}
}
とし、
祝日なら、１をそうでなければ０を格納されようと考えたのですが、@mk1の最後の日にちしか色が変わりません。
考え方が、どこかおかしいのでしょうか？
随時補足しますので、アドバイスをお願い致します。

回答No.2

kalze · ベストアンサー

if($mk1[$c] == $a) { $kyu[$a-1] = 1;}

↓
if($mk1[$c] == $a) { $kyu[$a-1] = 1; last;}

リストにマッチした時点で休日かどうかの判定ループからやめないと、その後のとは一致しないので、上書きされます。

つまり$c=1のときに確かに$mk1[$c]==$aが真となり$kyu[$a-1]=1としているのですが、その後も判定を続けるため、mk1リストの最後とは$mk1[$c]==$aが偽となってしまうため、せっかく前に判定して入れておいた1が0で上書きされてしまうと。

お礼

kalzeさん、ご指摘通りlast；を加えたら上手くいきました。
どうもありがとうございました。

回答No.1

BLUEPIXY

>考え方が、どこかおかしいのでしょうか？
間違っている処は、

else {$kyu[$a-1] = 0;}

の部分です。
$cが変化してifの条件に合わない場合があってその時に0にしたら、おかしいでしょう？
色々修正の仕方はあると思いますが、
for(my $a = 1; $a <= 31; $a++) {
$kyu[$a-1] = 0;
for(my $c = 0; $c < @mk1; $c++) {
if($mk1[$c] == $a) {
$kyu[$a-1] = 1;
}
}
}
とすればいいと思います。

お礼

BLUEPIXYさん、ありがとうございました。