どのように交換することはできま番号、その英語形Perl?

Question

いPerlスクリプトを数字として入力例222 できとして出力 二百二十二.

Answer 1

使用 共通::JA::数 -番"407"を"四百七"。

use Lingua::EN::Numbers qw(num2en num2en_ordinal);

    my $x = 234;
    my $y = 54;
    print "You have ", num2en($x), " things to do today!\n";
    print "You will stop caring after the ", num2en_ordinal($y), ".\n";

版画

You have two hundred and thirty-four things to do today!
You will stop caring after the fifty-fourth.

きを読む 文書 モジュールの出しすると、モジュールもサポートは以下のようなものが挙げられ、

• で対応可能 整数 のように"12"または"-3"と 実数 のように"53.19".
• でも理解 値は指数表現 --で"4E9"を"四十に添.
• で"INF","-INF","NaN"は"infinity"、"負の無限大"、"非数"です。

Answer 2

数:: にはあなたを助けることができるスペルます：

use Number::Spell;
my $str = spell_number(222);

Answer 3

こちらには:

• 番号を語コンバータ-Perlエンジニアリングプロジェクトをダウンロード

説明:これは、基本的には変換する 番号は語る。できるだけ変換 番号を以下の novemdecillionます。この 完全な入力検証してまいります。

Answer 4

このに試してみてください。著者から...

あなたは自由にこれを使用して、それを修正することができますしかし、あなたが欲しいます。