漢数字変換

---

　Lingua::JA::Numbersモジュールを使うと簡単です。

use strict;
use warnings;
use Encode;
use Lingua::JA::Numbers;

my $enc = 'cp932';

my $str = num2ja(1234567890, {style => 'kanji'});
print Encode::encode($enc, $str), "\n"; # 十二億三千四百五十六万七千八百九十

my $str2 = ja2num(Encode::decode($enc, '六千五'), {style => 'kanji'});
print $str2, "\n"; # 6005

---

関連項目

・2進10進数変換
・10進16進数変換
・n進数変換
・英語の数字変換
・ひらがなをカタカナに変換