Localization (cont)

• An example:

my $dt = DateTime->now( locale => 'ja_JA' );
for my $m ( qw( month_name month_abbr day_name day_abbr era ) )
{
    print " $m: ", $dt->$m, "\n";
}

for my $f ( qw( %p %c %x %X ) )
{
    print " $f: ", $dt->strftime($f), "\n";
}

• run the script - ja_JA