Perl Date 1

[michelebulloni]

hi,
i need a little script perl for convert mounth in unix date
samples...
TO
bash-2.02$ date
Fri Mar 12 13:00:50 MET 2004
....

FROM

bash-2.02$ date.pl
Fri 03 12 13:00:50 MET 2004

;-)

 

[duncdude]

for a single value...

$date = 'Fri 03 12 13:00:50 MET 2004';
print " original date: $date\n";
$date =~ s/([A-Z][a-z]{2}) 03 /$1 Mar /g;
print "converted date: $date\n";


Kind Regards
Duncan

 

[duncdude]

for any number of dates...

@dates = ( 'Fri 03 12 13:00:50 MET 2004',
'Sat 04 12 13:02:48 MET 2004',
'Sun 05 12 13:02:48 MET 2004');

foreach $date (@dates) {
print " original date: $date\n";

$date =~ s/([A-Z][a-z]{2}) 01 /$1 Jan /g;
$date =~ s/([A-Z][a-z]{2}) 02 /$1 Feb /g;
$date =~ s/([A-Z][a-z]{2}) 03 /$1 Mar /g;
$date =~ s/([A-Z][a-z]{2}) 04 /$1 Apr /g;
$date =~ s/([A-Z][a-z]{2}) 05 /$1 May /g;
$date =~ s/([A-Z][a-z]{2}) 06 /$1 Jun /g;
$date =~ s/([A-Z][a-z]{2}) 07 /$1 Jul /g;
$date =~ s/([A-Z][a-z]{2}) 08 /$1 Aug /g;
$date =~ s/([A-Z][a-z]{2}) 09 /$1 Sep /g;
$date =~ s/([A-Z][a-z]{2}) 10 /$1 Oct /g;
$date =~ s/([A-Z][a-z]{2}) 11 /$1 Nov /g;
$date =~ s/([A-Z][a-z]{2}) 12 /$1 Dec /g;

print "converted date: $date\n\n";
}


Kind Regards
Duncan

 

[michelebulloni]

Thanks
but print
"date.pl" 35 lines, 1221 characters
bash-2.02$ ./date.pl
original date: Fri 03 12 13:00:50 MET 2004
converted date: Fri Mar Dec 13:00:50 MET 2004

original date: Sat 04 12 13:02:48 MET 2004
converted date: Sat Apr Dec 13:02:48 MET 2004

original date: Sun 05 12 13:02:48 MET 2004
converted date: Sun May Dec 13:02:48 MET 2004
no ---> Sun May 12 13:02:48 MET 2004

 

[duncdude]

sorry - can you give me 3 examples of BEFORE and AFTER and I will write the script for you


Kind Regards
Duncan