Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;
...
-----
Result:
eight thousand five hundred ninety seven
  2. or download this
      if($data=~/(\-?)\s*(\d+)/){
  3. or download this
    my $string=spell_number('1000000000000000'); #this works
my $string=spell_number(1000000000000000); #this doesNOT