二〇〇四年 長月 廿六日 日曜日
■ 日付を漢字表示にする [/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] (59)
[/links] (155)
[/mac] (87)
[/music] (31)
[/origami] (274)
[/this_blog/ajax] (7)
[/this_blog/blosxom] (5)
[/this_blog/history] (16)
[/this_blog/perl] (9)
最新記事
◇ 折り紙ボウル [/origami]
◇ Apple、２つの大失態 [/mac]
◇ tessellation と corrugation [/origami]
◇ Windows Vista のピントが外れたキャンペーン [/links]
◇ 折り紙フォント [/origami]
◇ You may want to [/language]
◇ ポール・ジャクソンさんのインタビュー [/origami]
◇ ジョセフ・ウーさんのインタビュー [/origami]
◇ Skype を使うと盗聴される？ [/links]
◇ 折り紙をモチーフにしたデザインいろいろ [/origami]
◇ OrigamiUSA コンベンション・フォトレポート [/origami]
◇ 地球温暖化の嘘 [/links]
◇ 0.999... = 1 という式について [/links]
◇ 不切一枚折り畳み椅子 [/origami]
◇ 折り紙風？ファッション [/origami]
毎日見るサイト
-> Slashdot
-> Boing Boing
-> ITmedia
-> デイリーポータルＺ
-> 新しもの好きのダウンロ〜ド
-> MACお宝鑑定団
-> MLB（日本語）
-> NFL（日本語）
-> GetUpEnglish
毎日聞くラジオ
-> WNYC2
-> BBC Radio 3
-> NHK FM
製作に関わっているサイト
-> 折紙探偵団
-> TidBITS 日本語版
-> 日本 HP