Calendar::Japanese::Holiday - 日本の祝日を求める

tag perl

こんにちはこんにちは、sakurako_sです。
日本の祝日を求めるのに便利なCalendar::Japanese::Holidayをゆるふわっと紹介します。

このモジュールには2つの関数があります。

コードを見てみましょう。

use strict;
use Calendar::Japanese::Holiday;
use YAML qw/Dump/;
use Perl6::Say;
binmode STDOUT, ':utf8';

# 祝日の名前
say isHoliday(2012, 1, 9);

# 指定月の祝日
say Dump getHolidays(2012, 1);

実行結果は次の通り。

成人の日
---
1: 元日
9: 成人の日


振替休日も求めたい場合は、引数を最後に1つ加えます。(真値であれば '1'以外でも大丈夫です)

# 祝日の名前
say isHoliday(2012, 1, 2, 1);

# 指定月の祝日
say Dump getHolidays(2012, 1, 1);

実行結果。

振替
---
1: 元日
2: 振替
9: 成人の日

お手軽ですね!

興味がある方は、ソースコードを覗いてみてください。日本の祝日の変遷っぷりが分かりやすくて楽しいですよ。んがんぐ。


明日はtorii.yさんです。お楽しみに。