@kyanny's blog

私は天才ではありません。ただ、人より長く一つの事と付き合っていただけです - アインシュタイン

DateTime::Format::Japanese で西暦○年を元号つきの日付に変換する

こうすると漢数字のおまけつきで、今日の日付(平成二一年四月五日)が表示される。

DateTime::Calendar::Japanese と DateTime::Calendar::Japanese::Era というのもあって、最初そっちを見つけて適当に使ってみたけど平成22年になったりして、 POD を読んだらなんかちょっと最近のカレンダーとは違うみたいなことが書いてあって、 DT::F::J のほうを使え、と書いてあった。

#!/usr/bin/perl
use strict;
use warnings;
use DateTime;
use DateTime::Format::Japanese;
use Perl6::Say;

my $fmt = DateTime::Format::Japanese->new;
my $dt = DateTime->today(time_zone => 'local');
my $str = $fmt->format_ymd($dt);
say sprintf('%s => %s', $dt->ymd, $str);

そして上のコードを gist に Paste しようとすると百発百中で Firefox がクラッシュする。なんだろう。