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

Question

我需要一个以数字为输入的 Perl 脚本示例 222
它应该输出为 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”。