Perl の「令和」への対応

Date::Japanese::Era というとても便利な Perl のモジュールがあります。

和暦をいい感じに扱うモジュールです。

もちろん「令和」にも対応しています。

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23


#!/usr/bin/env perl
use utf8;
use strict;
use warnings;
use Data::Printer {deparse => 1, caller_info => 1};

use Date::Japanese::Era;

{
    my $era = Date::Japanese::Era->new(2019, 5, 1);
    p $era->name;
    p $era->year;
}
{
    my $era = Date::Japanese::Era->new(2019, 4, 30);
    p $era->name;
    p $era->year;
}

{
    my $era = Date::Japanese::Era->new("令和", 1);
    p $era->gregorian_year;
}

このモジュールですが、「令和」への対応は 2019-03-31 に発表されています。

…PDT（アメリカ太平洋夏時間）ですが。

Changes - metacpan.org