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

我需要一个以数字作为输入的Perl脚本 它应该输出为222

以下是一个：

描述：这基本上转换为 把数字变成文字。它只能转换 小于或等于 百万分之一的数量。它有一个 完成输入验证过程

可以帮助您：

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

试试看。从作者那里

你可以自由使用它，并根据需要修改它。

使用-将“407”变成“四百零七”，等等

印刷品：

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”分别转换为“无穷大”、“负无穷大”和“非数字”

---

感谢链接..它完成了任务，现在我要学习它背后的逻辑：）我猜否决票是因为不建议使用CPAN模块，而是建议使用质量非常低的旧代码：只需略读它就可以显示对goto的自由使用，疯狂的regexp来验证输入，没有任何函数参数的展开…如果要这样做的话如果有人要求我们做家庭作业以获得不好的分数，那么这就应该起作用了。也许否决票是针对断开的链接。从末尾删除

Blockquote

，然后进行修复。任何时候，如果你想在Perl中做些什么，就从已经做了你需要的事情的代码开始。大多数时候，CPAN已经为你解决了这个问题.而且不要依赖任何在网络上找到的旧代码，如果链接被破坏，通常会非常糟糕。

You have two hundred and thirty-four things to do today!
You will stop caring after the fifty-fourth.