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");