Skip to content

Instantly share code, notes, and snippets.

@kyanny

kyanny/Japanese Era

Created April 5, 2009 08:22
Show Gist options
  • Save kyanny/90404 to your computer and use it in GitHub Desktop.
Save kyanny/90404 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Japanese Era
#!/usr/bin/perl
use strict;
use warnings;
use DateTime;
use DateTime::Format::Japanese;
use Perl6::Say;
my $fmt = DateTime::Format::Japanese->new;
my $dt = DateTime->today(time_zone => 'local');
my $str = $fmt->format_ymd($dt);
say sprintf('%s => %s', $dt->ymd, $str);
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment