Perl将字符串转换为数字

Question

我想将字符串序号转换为perl中的数字 我搜索过但没有得到确切答案。

示例：如果输入是

one it should be 1.
five hundred it should be 500.
three hundred it should be 300.

有没有任何模块可以做到这一点？

Answer 1

Perl最好的部分之一就是CPAN，而且肯定会在metacpan上花费几分钟时间来调查Lingua::EN::Words2Nums模块：

use Lingua::EN::Words2Nums;
$num=words2nums("two thousand and one");
$num=words2nums("twenty-second");
$num=words2nums("15 billion, 6 million, and ninteen");