RE: Re: Number to Speech

Number::Spell looks like a good module for this sort of thing. But do you know of any modules that will handle ordinals? Number::Spell spells out cardinals.

(For the numerically impaired... cardinals count items (as in "one, two, three"), ordinals order items (as in "first, second, third"). You can tell cardinals by their red robes...)

UPDATE: Not that I'm complaining, but... I just noticed that this comment has a fairly decent reputation, higher than most of my comments, and equal to what I feel is a deserving comment posted on another thread Re: Search for dupe && append char if found.

This comment was a smart-assed, throwaway comment (or at least, I intended it to be). Why is it so highly rated?

I'm not trolling for votes, just curious.

Comment on RE: Re: Number to Speech

Replies are listed 'Best First'.
RE: RE: Re: Number to Speech by nuance (Hermit) on Aug 22, 2000 at 15:23 UTC
If you've got the ordinal then the cardinal is relatively easy, just roll your own. something like: #!/usr/bin/perl -w use strict; my @examples = ("one", "two", "three", "nine", "twenty", "one hundred and three", "one thousand", "one thousand two hundred", "eighth thousand seven hundred and fifty seven"); for my $cardinal (@examples) { my $ordinal = ordinalise($cardinal); print "$ordinal\n"; }; sub ordinalise { my $str = shift; my @arr = split " ", $str; my $word = pop @arr; my %ord = ("one" => "first", "two" => "second", "three" => "third", "four" => "fourth", "five" => "fifth", "six" => "sixth", "seven" => "seventh", "eight" => "eighth", "nine" => "ninth", "ten" => "tenth", "eleven" => "eleventh", "twelve" => "twelfth"); { $word =~ s/ty$/tieth/ and next; $word = $ord{$word} and next if defined $ord{$word}; $word .= "th"; } push @arr, $word; return join(" ", @arr); }; [download] *Nuance*	[reply] [d/l]

Replies are listed 'Best First'.

RE: RE: Re: Number to Speech
by nuance (Hermit) on Aug 22, 2000 at 15:23 UTC

#!/usr/bin/perl -w

use strict;

my @examples = ("one", "two", "three", "nine", "twenty",
                "one hundred and three", "one thousand",
                "one thousand two hundred",
                "eighth thousand seven hundred and fifty seven");

for my $cardinal (@examples) {
    my $ordinal = ordinalise($cardinal);
    print "$ordinal\n";
};

sub ordinalise {
    my $str = shift;
    my @arr = split " ", $str;
    my $word = pop @arr;
    my %ord = ("one" => "first",       "two" => "second",
               "three" => "third",     "four" => "fourth",
               "five" => "fifth",      "six" => "sixth",
               "seven" => "seventh",   "eight" => "eighth",
               "nine" => "ninth",      "ten" => "tenth",
               "eleven" => "eleventh", "twelve" => "twelfth");
    {
    $word =~ s/ty$/tieth/ and next;
    $word = $ord{$word} and next if defined $ord{$word};
    $word .= "th";
    }
    push @arr, $word;
    return join(" ", @arr);
};
[download]

Nuance

[reply]
[d/l]