Lingua::JA::Numbers is a Perl module that converts numeric values into their Japanese string equivalents and vice versa.
SYNOPSIS
use Lingua::JA::Numbers;
# OO Style
my $ja = Lingua::JA::Numbers->new(1234567890, {style=>'romaji'});
# JuuNiOkuSanzenYonHyakuGoJuuRokuManNanaSenHappyakuKyuuJuu
# $ja->get_string is implictly called
print "$jan";
print $ja+0, "n";
# 1234567890
# $ja->number is implicitly called.
# 1234567890
# Functional Style
my $str = ja2num(1234567890, {style=>'romaji'});
print "$strn";
# JuuNiOkuSanzenYonHyakuGoJuuRokuManNanaSenHappyakuKyuuJuu
print num2ja($str), "n";
# 1234567890
INSTALLATION
To install this module type the following:
perl Makefile.PL
make
make test
make install
Product's homepage
Requirements:
· Perl