Perl将数字改为单词

Question

在此之前，我已经问过同样的问题，我得到了答案，但我错了。我需要将数字转换成单词，而不用任何库，特别是Lingua：：Number。

我找到了一个将电话号码中的数字分开的例子。然后我尝试在我的脚本中实现这个例子。但没起作用。

这是我的剧本。

$x = "1104";
$x =~ s/1/ one /gi; #from 1-10, I, substitute number to words to words
$x =~ s/2/ two /gi;
$x =~ s/3/ three /gi;
$x =~ s/4/ four /gi;
$x =~ s/5/ five /gi;
$x =~ s/6/ six /gi;
$x =~ s/7/ seven /gi;
$x =~ s/8/ eight /gi;
$x =~ s/9/ nine /gi;
$x =~ s/10/ ten /gi;
$y = ($x{1}[thousand]?$x{1}[hundred and]?$x{2});  


    #then I will insert all my $x into $y.

$x =~ s/$x/$y/gi; #Here i substitute again to change all number to words

#that is my idea.

print "$x";

我试着先做4位数。如果是成功的，那么我可以继续插入，直到有7-8位数或更多.

Answer 1

在代码中这样做要直观得多。这是C#中的一个起点，但是在几乎任何类似C的语言中都需要进行最小的更改：

string Speak(int num)
{
    if (num < 0) return "negative " + Speak(-num);
    if (num >= 1000000000) return Speak(num / 1000000000) + " billion " + Speak(num % 1000000000);
    if (num >= 1000000) return Speak(num / 1000000) + " million " + Speak(num % 1000000);
    if (num >= 1000) return Speak(num / 1000) + " thousand " + Speak(num % 1000);
    if (num >= 100) return Speak(num / 100) + " hundred " + Speak(num % 100);
    if (num >= 20)
    {
        switch (num / 10)
        {
            case 2: return "twenty " + Speak(num % 10);
            case 3: return "thirty " + Speak(num % 10);
            case 4: return "forty " + Speak(num % 10);
            case 5: return "fifty " + Speak(num % 10);
            case 6: return "sixty " + Speak(num % 10);
            case 7: return "seventy " + Speak(num % 10);
            case 8: return "eighty " + Speak(num % 10);
            case 9: return "ninety " + Speak(num % 10);
        }
    }
    switch (num)
    {
        case 0: return "";
        case 1: return "one";
        case 2: return "two";
        case 3: return "three";
        case 4: return "four";
        case 5: return "five";
        case 6: return "six";
        case 7: return "seven";
        case 8: return "eight";
        case 9: return "nine";
        case 10: return "ten";
        case 11: return "eleven";
        case 12: return "twelve";
        case 13: return "thirteen";
        case 14: return "fourteen";
        case 15: return "fifteen";
        case 16: return "sixteen";
        case 17: return "seventeen";
        case 18: return "eighteen";
        case 19: return "nineteen";
    }
    return "";
}

示例：

Speak("123000701") -> "one hundred twenty three million seven hundred one";

我将把它作为添加对零、逗号和“和”-words的支持的练习。