Kawaninon.com

指定した日時から令和の元号をPerlモジュールのTime::Pieceで生成

PerlモジュールのTime::Pieceを使用して、指定した日時から令和の元号を出力しました。新しい元号の「令和」が発表されて、平成の時代も残り僅かとなり、5月1日からは令和時代の幕開けです。(平成31年04月01日)

#!/opt/local/bin/perl
 
use strict;
use warnings;
use Time::Piece;
 
print "Content-type: text/html; charset=utf-8\n\n";
 
my $wareki = sub
{
    my ($yyyymmdd) = @_;
    my $yyyy = substr($yyyymmdd, 0, 4);
    
    if (    ($yyyymmdd ge "19890108")
        and ($yyyymmdd le "20190430"))
    {
    return ("平成"
          . (($yyyy - 1989) == 0 ? "元" : ($yyyy - 1989 + 1))
          . "年");
    }
    elsif ($yyyymmdd ge "20190501")
    {
        return ("令和"
          . (($yyyy - 2019) == 0 ? "元" : ($yyyy - 2019 + 1))
          . "年");
    }
};
 
print+ ($wareki->(20190430)),"\n";
print($wareki->(20190501));
 
exit;平成31年
令和元年

サンプルコードと出力結果です。指定した日時から和暦の元号を出力しました。ブログで必要な平成と令和のみを対象にして簡素なコードを作成。平成31年4月30日が平成の最終日になります。