Perl 祝日名の取得

Rev.6を表示中。最新版はこちら。

Calendar::Japanese::Holiday

Calendar::Japanese::Holidayは祝日の一覧取得、祝日判定、祝日名の取得ができるPerl モジュールです。

CPANにアップ済(最新はVer. 0.02)。

概要

このモジュールで以下のことを行えます。

指定年月の祝日一覧の取得
指定日の祝日判定

祝日判定で祝日だった場合は、祝日名を返すので祝日名の取得もできます。

使用例

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 = "こどもの日"

その他

祝日はその年に応じて移動したりする場合がありますが、本モジュールではこれらの情報も正しく返します。

例えば4月29日は1989〜2006年までは「みどりの日」でしたが、2007年からは「昭和の日」となりました(「みどりの日」は5月4日に移動)。これらの情報を正しく取得できるか、以下のスクリプトで試してみます。

use Calendar::Japanese::Holiday;
use open OUT  => ":utf8";
use open ":std";

print "2006/4/29: ".isHoliday(2006, 4, 29), "\n";
print "2007/4/29: ".isHoliday(2007, 4, 29), "\n";
print "2007/5/4:  ".isHoliday(2007, 5,  4), "\n";

上記のスクリプトを実行すると、以下のように年に応じた祝日名を取得できているのがわかります。

2006/4/29: みどりの日
2007/4/29: 昭和の日
2007/5/4:  みどりの日

簡易サンプル

カレンダー表示をする簡易サンプル。

#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use Encode;
use Time::Local;
use Calendar::Japanese::Holiday;

my ($year, $mon) = (2007, 5);

my $start = 1 - (localtime(timelocal(0, 0, 0, 1, $mon - 1, $year)))[6];
my @holidays;
foreach my $day ($start .. Calendar::Japanese::Holiday::days_in_month($year, $mon)) {
    printf("%2s          ", $day >= 1 ? $day : ' ');

    push @holidays, (isHoliday($year, $mon, $day) or "");

    if (@holidays >= 7) {
	print "\n";
	print Encode::encode("utf8", $_."\x{3000}" x (6 - length $_))
	  foreach (@holidays);
	print "\n";
	@holidays = ();
    }
}
print "\n";

上記のスクリプトを実行すると、以下のようなカレンダーが表示される。

                         1           2           3           4           5          
　　　　　　　　　　　　　　　　　　　　　　　　憲法記念日　みどりの日　こどもの日　
 6           7           8           9          10          11          12          
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
13          14          15          16          17          18          19          
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
20          21          22          23          24          25          26          
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
27          28          29          30          31