blog.鶯梭庵

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

■ 日付を漢字表示にする [/this_blog/perl]

８月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] (71)
[/links] (185)
[/mac] (97)
[/music] (36)
[/origami] (347)
[/this_blog/ajax] (7)
[/this_blog/blosxom] (4)
[/this_blog/history] (12)
[/this_blog/perl] (9)

最新記事

◇ ジョセフ・ウーさん協力のCM [/origami]
◇ シッポ・マボナさんの折り紙展 [/origami]
◇ 7 月 26 日から 8 月 1 日のツイートまとめ・その４ [/links]
◇ 7 月 26 日から 8 月 1 日のツイートまとめ・その３ [/links]
◇ 7 月 26 日から 8 月 1 日のツイートまとめ・その２ [/links]
◇ 7 月 26 日から 8 月 1 日のツイートまとめ・その１ [/links]
◇ 米国の若者のあいだに Mac のシェア広がる [/mac]
◇ 7月19日〜25日のツイートまとめ [/links]
◇ 千葉法相の死刑執行と金賢姫氏来日の関係？ [/links]
◇ 地球温暖化の嘘・その８ [/links]
◇ OrigamiUSA コンベンションフォトレポート [/origami]
◇ プログラム可能な折り紙 [/origami]
◇ ポーランドコンベンション・フォトレポート [/origami]
◇ 参議院の選挙制度は悪い見本 [/links]
◇ 日本の政治家が官僚にたてつくとつぶされる [/links]