如何在Perl中將數字轉換為英文形式？

Question

我需要一個Perl腳本，它將數字作為輸入示例222，它應該輸出為二百二十二 。

Answer 1

使用Lingua :: EN :: Numbers - 將“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”分別變為“無窮大”，“負無窮大”和“非數字”。

Answer 2

Number :: Spell可以幫到你：

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

Answer 3

這是一個：

• 數字轉換器 - Perl工程項目下載

描述：這基本上將一個數字轉換為單詞。 它只能轉換小於或等於novemdecillion數量的數字。 它有一個完整的輸入驗證過程。

Answer 4

試試這個 。 來自作者......

您可以隨意使用它並根據需要進行修改。