二〇〇四年 長月 廿六日 日曜日
■ 日付を漢字表示にする [/this_blog/perl]
この記事は書かれてから1年以上経過しています。内容が古くなっている可能性があります。コメントの受付は終了しました。
８月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;
関連記事:
・split 関数についてのメモ [this_blog/perl]
カテゴリ
[/language] (98)
[/links] (254)
[/mac] (114)
[/music] (36)
[/origami] (406)
[/this_blog/ajax] (7)
[/this_blog/blosxom] (4)
[/this_blog/history] (12)
[/this_blog/perl] (9)
最新記事
◇ パスワードについてのあなたの常識はもはや非常識かもしれない・その１ [/links]
◇ ニューラルネットワークとディープラーニングで翻訳はどうなる・その５ [/language]
◇ ニューラルネットワークとディープラーニングで翻訳はどうなる・その４ [/language]
◇ HTTPS 対応 [/links]
◇ ひらがな・カタカナ学習ウェブアプリ [/links]
◇ 日本語の「た」と英語の過去形 [/language]
◇ ORI-REVO で回転楕円体を折る・その２ [/origami]
◇ ORI-REVO で回転楕円体を折る・その１ [/origami]
◇ 折り紙建築 [/origami]
◇ 折鶴に松図小柄 [/origami]
◇ 改訂版・たぶん、ほとんどの人は viewport meta タグの指定をまちがえてる・その６ [/links]
◇ 改訂版・たぶん、ほとんどの人は viewport meta タグの指定をまちがえてる・その５ [/links]
◇ 改訂版・たぶん、ほとんどの人は viewport meta タグの指定をまちがえてる・その４ [/links]
◇ 改訂版・たぶん、ほとんどの人は viewport meta タグの指定をまちがえてる・その３ [/links]
◇ 改訂版・たぶん、ほとんどの人は viewport meta タグの指定をまちがえてる・その２ [/links]