旧暦（太陰太陽暦）の月名を取得する - Perl

1月を日本では睦月（むつき）とも呼ぶ。このような旧暦の名称を取得するにはどうすれば良いだろう？

睦月から順番に配列に入れ、localtimeの4番目の戻り値をそのまま添え字として使用するだけで良い。忘れがちだが、localtimeが返す月の番号は0～11だ。おそらくこういった用途のための仕様と思われる(Cなど、Perl以外の言語もほぼ似たような感じだっていうか、元になってるのはCなわけだが)

サンプル

サンプル

;#
;#旧暦の月名
;#

my $now_month  = (localtime())[4];
my $month_name = getKyurekiMonthName($now_month);

print "$month_name\n";


#----------------------------------------
#旧暦の月名を取得する
#----------------------------------------
sub getKyurekiMonthName{
    my $month = shift;    #0～11
    my @label = (
             '睦月',  '如月', '弥生'
            ,'卯月',  '皐月', '水無月'
            ,'文月',  '葉月', '長月'
            ,'神無月','霜月', '師走'
    );

    return( $label[$month] );
}