如何在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。来自作者...

您可以随意使用它并根据需要进行修改。