perl - 如何在 Perl 中将数字转换为英文形式？

Question

我需要一个将数字作为输入示例 222 的 Perl 脚本，它应该输出为222。

Answer 1

使用Lingua::EN::Numbers - 将“407”变成“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”、“negative infinity”和“not a number”。

Answer 2

Number::Spell可以帮助您：

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

Answer 3

这是一个：

• 数字到单词转换器 - Perl 工程项目下载

描述：这基本上将数字转换为单词。它只能转换小于或等于 novemdecillion 数量的数字。它有一个完整的输入验证过程。