如何在Perl中将数字转换为文本？

Question

我需要在我的程序中使用一些代码作为输入并将其转换为相应的文本,例如745到"七百四十五".

现在,我可以为此编写代码,但是我可以使用任何库或现有代码吗？

Answer 1

来自Lingua的 perldoc :: EN ::数字:

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.

Answer 2

看一下Math::BigInt::Named模块。