Skip to content

Instantly share code, notes, and snippets.

@yaasita

yaasita/wareki.pl

Created April 24, 2019 17:01
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save yaasita/7342892b42d92f687ca5ef8878626d2c to your computer and use it in GitHub Desktop.
Save yaasita/7342892b42d92f687ca5ef8878626d2c to your computer and use it in GitHub Desktop.
Download ZIP
Raw
wareki.pl
#!/usr/bin/perl
use strict;
use warnings;
use feature qw(:5.10);
use utf8;
use Date::Japanese::Era;
binmode STDOUT, ":utf8";
my $era = Date::Japanese::Era->new(2019, 5, 1);
say $era->name, $era->year,"年";
# 令和1年
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment