in reply to Convert from Alphabet "one" to numeric "1"

%Alphabet = ('one'   => 1,
             'two'   => 2,
             'three' => 3);
print $Alphabet{"one"};
print $Alphabet{$Written_number};

[download]

You could add the remaining 7 numbers easily.

Replies are listed 'Best First'.
Re^2: Convert from Alphabet "one" to numeric "1"
by ikegami (Patriarch) on Aug 25, 2009 at 06:31 UTC
    I wonder which seven numbers those are. I vote for
    • zero
    • four
    • eight
    • sixteen
    • fourty-two
    • two hundred and fixty-six
    • pi
[reply]
    A reply falls below the community's threshold of quality. You may see it by logging in.

In Section Seekers of Perl Wisdom