perl - Perlで数値を英語の形式に変換するにはどうすればよいですか？

Question

入力例222として数値を受け取るPerlスクリプトが必要であり、222として出力されるはずです。

Answer 1

Lingua :: EN::Numbersを使用します-「407」を「470」などに変換します。

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」を「10から9の4倍」に変換します。
• 「INF」、「-INF」、「NaN」をそれぞれ「無限大」、「負の無限大」、「数値ではない」に変換します。

Answer 2

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

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

Answer 3

これが1つです：

• Number to WordConverter-Perlエンジニアリングプロジェクトのダウンロード

説明：これは基本的に数字を単語に変換します。変換できるのは、数十億単位以下の数値のみです。完全な入力検証プロセスがあります。