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