blog.鶯梭庵

二〇〇四年長月廿六日日曜日

８月29日の記事「日付を漢字表示にするには」の改良版。タイムスタンプを受け取って、漢字表記の日付を返すサブルーチン。コピーして使いたい方はご自由にどうぞ。

my ($time) = @_;

my ($date, $month, $year, $day) = (localtime $time)[3..6];

my @month = qw( 睦月如月弥生卯月皐月水無月文月葉月長月神無月霜月師走 );

my @day = qw( 日月火水木金土 );

my @num = qw( 〇一二三四五六七八九 );

my @d_num = qw( 〇十廿卅 );

my @date = split "", $date;

my $date1 = shift @date if @date == 2;

my $date2 = shift @date;

$date = $year+1900;

$date =~ s/(\d)/$num[$1]/g;

$date .= "年 $month[$month] ";

$date .= $d_num[$date1] if $date1;

$date .= $num[$date2] if $date2;

$date .= "日 $day[$day]曜日";

return $date;