Select Code to Download

Select or download this

use Date::Manip;

my $str_date = shift || die "give a date!\n";  # almost *any* format
...
    ParseDateString("epoch $str_date") : $str_date;

print UnixDate( ParseDate( $str_date ), "\t%D %X, %A\n");

Select or download this

jinx@jasper[38]~/bin>dater "22 Oct, 15:30"
    10/22/04 15:30:00, Friday
jinx@jasper[39]~/bin>dater "noon tomorrow"
...
    10/21/04 15:00:00, Thursday
jinx@jasper[45]~/bin>dater "10am next tuesday"
    10/26/04 10:00:00, Tuesday