Help for this page

Select Code to Download


  1. or download this
    use Lingua::EN::Numbers qw(num2en);

...
Too Small: 7 and 5.
Too Big: 123345
Just right: 51
  2. or download this
    use Date::Parse qw(strptime);
use POSIX qw(strftime);
...
my $newdate = strftime "%Y/%m/%d", strptime $str;

print "$newdate\n";