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

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

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

date-japanese-era.pl
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(アメリカ太平洋夏時間)ですが。