use Date::Format

DESCRIPTION: This module provides routines to format dates into ASCII strings. They correspond to the C library routines strftime and ctime.

To obtain the date in the format you asked:

perl -e 'use Date::Format;print time2str("%d-%m-%Y\n", time);'
[download]

citromatik

UPDATE:Since the input date is fixed in format (e.g: 16May07) Date::Format can't be used. The solution that gives tirwhan seems correct

Did you search CPAN? You could use Date::Manip

use Date::Manip;

use strict;
use warnings;

my $date=ParseDate("16May07")
print UnixDate($date,"%m-%d-%Y");
[download]

Update: fixed date format string, thanks naikonta

Phil

...into a MM-DD-YYYY type format?

cheers

Yep, this or the numeric YYYYMMDD format, which also happens to be ultimately good when sorting :)

I wish I could have voted twice for this reply


Enjoy, Have FUN! H.Merijn

You can easily do it yourself:

use strict;
use warnings;

my $str = shift @ARGV;
my %months = (
          'Jan' => '01',
          'Feb' => '02',
          'Mar' => '03',
          'Apr' => '04',
          'May' => '05',
          'Jun' => '06',
          'Jul' => '07',
          'Aug' => '08',
          'Sep' => '09',
          'Oct' => '10',
          'Nov' => '11',
          'Dec' => '12'
         );

my ($year,$month,$day) = (substr ($str,-2,2,""),substr($str,-3,3,""),$
+str);
my $modstr = join '-',($months{$month},length $day == 1 ? '0'.$day : $
+day, '20'.$year);

print $modstr."\n";

# Run it!:
# perl date_convert.pl 16May07
# 05-16-2007
# perl date_convert.pl 4Dec03
# 12-04-2003
[download]

But be careful with years < 2000! :-)

citromatik

Save yourself :-)

#!/usr/bin/perl

use strict;
use warnings;

my %months = (
    Jan => 1,
    Feb => 2,
    Mar => 3,
    # .....
);

my $str = shift;
my($day, $mon, $year) = split /(\D+)/, $str;
printf "%02d-%02d-%s\n", $months{$mon}, $day, "20$year";
[download]

I don't feel good with the 20$year part, though. It reminds me of the 19100 syndrome :-)

---

Open source softwares? Share and enjoy. Make profit from them if you can. Yet, share and enjoy!

By your "Save yourself" I was thinking you were going to build the month name-number hash more lazily...

my %months;
@months{qw( jan feb mar apr may jun jul aug sep oct nov dec )} =
  ( 1 .. 12 );
[download]