want to convert date from 01/12/07 to 12-Jan-2007

hurperl · April 11th, 2007, 03:44 PM

Hi Charlie,

your last post was very helpful. Even along with that, i am looking to change the date format from 01/12/07 to 12-Jan-2007, can you please tell me how can i do that and by using which module.

Thanks,
Hur

crmpicco · April 12th, 2007, 05:47 AM

does this help? i would suggest using Date::Calc;

Code:

#!/usr/bin/perl

# Craig R Morton
# 11-Apr-2007

use strict;
use Date::Calc qw/Add_Delta_Days/;

my $current_year = (localtime)[5]+1900;

my $ordinal = 60;
my ($yr, $mon, $mdy) = Add_Delta_Days($curr_year, 1, 1, $ordinal-1);

my $mon_t = (qw/Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec/)[$mon-1];

print "$mday $mon_t $yr\n";

www.crmpicco.co.uk
www.ie7.com