#!/usr/bin/perl

use Lingua::EN::Numbers qw(num2en num2en_ordinal);
$input = @ARGV[0] || die "Give me something to convert you n00b";
chomp($input);
$input =~ s/\,//g;
if($input =~ /^[0-9]+$/) {
print num2en($input) . "\n";
} else {
print "Try this with numbers? Maybe?\n";
}

Koneg posted:

---

Eeeew.

And yea, as I suspected, already written

#!/usr/bin/perl

use Lingua::EN::Numbers qw(num2en num2en_ordinal);
$input = @ARGV[0] || die "Give me something to convert you n00b";
chomp($input);
$input =~ s/\,//g;
if($input =~ /^[0-9]+$/) {
print num2en($input) . "\n";
} else {
print "Try this with numbers? Maybe?\n";
}

---

Eradiani posted:

---

LOL I'm sure they are looking for someone to make it themselves.. not pass it to a pre-made function

---

Koneg posted:

---

Eradiani posted:

---

LOL I'm sure they are looking for someone to make it themselves.. not pass it to a pre-made function

---

**scratches head**

I would bet real money this function/library exists for every programming language you care to name, but hey... Have fun re-inventing that wheel if it really makes you happy.

---