Date::Japanese::Eraを使ってperlで和暦-西暦を相互変換 - end0tknr's kipple - web写経開発

Date::Japanese::Eraを使ってperlで和暦-西暦を相互変換 - end0tknr's kipple - web写経開発

perlで和暦-西暦を相互変換するには、Date::Japanese::Eraを使用します。 http://search.cpan.org/~miya...概要を表示 perlで和暦-西暦を相互変換するには、Date::Japanese::Eraを使用します。 http://search.cpan.org/~miyagawa/Date-Japanese-Era-0.06/lib/Date/Japanese/Era.pm 西暦から和暦 my @date_strings = ([1970,1,1], [2009,1,1]); for my $date_str ( @date_strings ){ my $era = Date::Japanese::Era->new( @$date_str ); #西暦から和暦へ my $nengou = encode("sjis", $era->name ); my $jp_year = $era->year; print join('/',@$date_str )," -> $nengou $jp_year\n"; } 実

• Perl