use Calendar::Japanese::Holiday;

# 祝日一覧の取得
$holidays = getHolidays(2008, 5);
$holidays = getHolidays(2008, 5, 1);

# 祝日かどうかの判定
$name = isHoliday(2007, 5, 5);

関数

getHolidays($year, $month [, $furikae])

指定した年月($year, $month)の祝日一覧を格納したハッシュへのリファレンスを返します。ハッシュのKeyが日付、値が祝日名になります。祝日がない場合は、空のハッシュへのリファレンスを返します。undefが返った場合はエラーです。$yearは1970以降のみサポートしています。1970より前を指定した場合は、undefが返ります。

$holidays = getHolidays(2008, 5);

返された$holidaysの内容:
$holidays = {
             '4' => "みどりの日",
             '3' => "憲法記念日",
             '5' => "こどもの日" 
            };

$furikaeを1(真)にして呼び出すと振替休日も一緒に返すようになります(以下、参照)。省略時は偽で振替休日は含めません。

$holidays = getHolidays(2008, 5, 1);

返された$holidaysの内容:
$holidays = {
             '6' => "振替",
             '4' => "みどりの日",
             '3' => "憲法記念日",
             '5' => "こどもの日" 
            };

isHoliday($year, $month, $day [, $furikae])

指定した日が祝日かどうかを調べます。祝日の場合は祝日名を返します。祝日でなければ、undefを返します。

$furikaeはgetHolidays()と同じで、真を指定すると振替休日となる日についても祝日と判定するようになります("振替"が返る)。

$name = isHoliday(2007, 5, 5);

返された$nameの内容
$name = "こどもの日"

最終更新 2007/06/15 13:59:41 - kztomita
(2007/06/15 11:20:36 作成)

このページのコメント一覧(3) | 最近のコメントを表示 | コメントを書く

とみぞーノート

Perl 祝日名の取得

Calendar::Japanese::Holiday

概要

使用例

関数