perl で祝日を特定するサブルーチン。

% ftp -a http://ical.mac.com/ical/Japanese32Holidays.ics

#!/usr/bin/perl
use strict;
use Date::Manip;

#
## main
#
my $date = shift;
if ($date) {
    my $data = &holiday_check($date);
    print $data ."\n\n";
} else {
    for (my $mm = 1;$mm < 13;$mm++) {
        for (my $dd = 1;$dd < 32;$dd++) {
            my $date = "2011" . sprintf("%02d",$mm) . sprintf("%02d",$dd);
            my $data = &holiday_check($date);
            print $data ."\n" if ($data);
        }
    }
}
exit 1;

#
## 祝日のチェック
#
sub holiday_check {
    my $date = shift;
    my $name = "";
    my $day  = "";
    my $f    = 0;

    open(CAL,"<./Japanese32Holidays.ics");
    while( my $line = <CAL> ) {
        $line =~ s/\r\n//g;
        chomp $line;
        $f = 0;
        if ($line =~ /^BEGIN:VEVENT/) {
            while( my $line = <CAL> ) {
                $line =~ s/\r\n//g;
                chomp $line;
                last if ($line =~ /^END:VEVENT/);
# 日付が決まっている祝日の場合はそれを利用する
                if ($line =~ /^(DTSTART;VALUE=DATE:)/) {
                    $line =~ s/$1//;
                    $day = $line;
                    $f = 1 if ($day eq $date);
                }
# 祝日名を取得
                if ($line =~ /^(SUMMARY:)/) {
                    $line =~ s/$1//;
                    $name = $line;
                }
# 祝日法で決まっている祝日の情報の取得
                if ($line =~ /^RRULE:/) {
                    my $yy = substr($date,0,4);
                    my $mm = "";
                    my $dd = "";
                    my @tmp = split(";",$line);
                    foreach my $a (@tmp) {
# BYMONTH は何月かの情報
                        $mm = $1 if ($a =~ /BYMONTH=(.*)/);
# BYDAY は月曜日が祝日の時の計算
# 今のところは月曜日しか無いので MO の狙い撃ち
# 祝日法が変わったら改修しようね;-)。
                        if ($a =~ /BYDAY=(.*)MO/) {
                            $dd = $1 ;
                            my @a = ParseRecur("*$yy:$mm:$dd:1:0:0:0");
                            my $d = substr($a[0],0,8);
#print "@a,$a[0] : $date,$d\n";
                            if ($date eq $d) {
                                $f = 1;
                                last;
                            }
                        }
                    }
# BYDAY が無い RRULE の場合は DTSTART の月日を利用する
                    unless ($line =~ /BYDAY=/) {
                        my $datesv = $date;
                        my $d = substr($datesv,4,4);
                        if ($day =~ /$d$/) {
                            $f = 1;
                            last;
                        }
                    }
                }
            }
            last if ($f);
        }
    }
    close(CAL);

    my $data = "";
    if ($f) {
        $data = "$date : $name ";
    }
    return($data);
}

 % ./CheckHoliday.pl 20110718
20110718 : 海の日 (Marine Day)