如何在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’，‘南’到‘無窮大’，」負無窮大「和」不是數字「

Answer 2

這裏是一個：

• Number to Word Converter - Perl Engineering Project Download

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

Answer 3

Number::Spell可以幫助你：

Answer 4

嘗試this。來自作者...

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