Convert Perl Number to Text Representation. For checks

[aswolff]

Hello,

I know I've ran into this before but I am looking for a utility, script, module. That will take a number and convert it to text representation.

Example:

450.00 -> Four Hundred Fifty 00/100

128.32 -> One Hundred Twenty Eight 32/100

Thanks.

 

[MillerH]

http://search.cpan.org/search?query=Lingua::Num2Word

- Miller

 

[aswolff]

Thanks.

 

[MillerH]

For future reference, please note that I have no experience with that module but simply did a cpan search for "Number Text".

http://search.cpan.org/

- Miller

 

[BrianAtWork]

Have you checked out the Lingua::EN::Numbers module? (Assuming you need English)

  use Lingua::EN::Numbers qw(num2en num2en_ordinal);

  my $x = 234;
  my $y = 54;
  print "You have ", num2en($x), " things to do today!\n";
  print "You will stop caring after the ", num2en_ordinal($y), ".\n";

Prints

  You have two hundred and thirty-four things to do today!
  You will stop caring after the fifty-fourth.

That's taken directly from the CPAN site, but it sounds like what you need.

http://search.cpan.org/~sburke/Lingua-EN-Numbers-1.01/lib/Lingua/EN/Numbers.pm