use strict; use warnings; use Calendar::Japanese::Holiday; use utf8; use open qw(:encoding(utf8) :std); my $year = 2015; foreach my $month (1..12) { my $href = getHolidays($year, $month, 1); foreach my $day (sort keys %$href) { printf("%02d/%02d %s\n", $month, $day, $href->{$day}); } } $ perl holiday.pl 01/01 元日 01/12 成人の日 02/11 建国記念の日 03/21 春分の日 04/29 昭和の日 05/03 憲法記念日 05/04 みどりの日 05/05 こどもの日 05/0

