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

发布时间：2020-12-15 21:59:01 所属栏目：大数据来源：网络整理

导读：我需要在我的程序中使用一些代码作为输入并将其转换为相应的文本,例如745至“七百四十五”. 现在,我可以为此编写代码,但是我可以使用任何库或现有代码吗？解决方法来自 Lingua::EN::Numbers的perldoc： use Lingua::EN::Numbers qw(num2en num2en_ordinal)

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

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

解决方法

来自 Lingua::EN::Numbers的perldoc：

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.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!