Perl date format

Hi,

I'm using the following code to format to change
Thu Aug 21 10:42:00 2008 to 08/21/08?




my %MonthToNumber =
(
 '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 $date = 'Thu Aug 21 10:42:00 2008';

$date =~ s|\w+\s(\w+)\s(\d+)\s\d+:\d+:\d+\s(\d+)|sprintf('%  2.2d/%2.2d/%4.4d',$MonthToNumber{$1},$2,$3)|e;

However, when I tried Thu Aug 1 10:42:00 2008 to 08/01/08
1 instead 21 it doesn't work because it's only one digit instead of two

Any suggestions?

Thanks in advance

Find more posts tagged with

Comments

sandy123

I tried converting Thu Aug 01 10:42:00 2008 and Thu Aug 21 10:42:00 2008, using your code and both dates got converted correctly.

Can you post more details on what is your problem.

Thanks,
Sandy

cdoloriert

I tried Thu Aug 1 10:42:00 2008 with out the zero in front of the 1 and it didn't work.

sandy123

I tried Thu Aug 1 10:42:00 2008 with out the zero in front of the 1 and it didn't work.

strange it is working in my case. i am using perl Version 5.6.1.

I dont think this might be a reason. what version of perl you are using?

cdoloriert

TS 6.7.1
Perl 5.8

sandy123

you are executing it on your machine right (not the teamsite) ?
If you are not then try executing it on your machine, i know it does not make sense but try. No other thoughts on this weired problem.

nipper

I just tried this using iwperl (from 6.7.2):


my $date = 'Thu Aug 1 10:42:00 2008';

$date =~ s|\w+\s(\w+)\s(\d+)\s\d+:\d+:\d+\s(\d+)|sprintf('% 2.2d/%2.2d/%4.4d',$MonthToNumber{$1},$2,$3)|e;
print "$date";

and got

08/01/2008

so there is something funky going on with your perl

cdoloriert

Hi,

You guys have tried Thu Aug 1 10:42:00 2008, but not

Thu Aug   1 10:42:00 2008.

There's an extra space between Aug and 1. I get it in that formant two spaces when I get the date from teamsite. I need to convert it in the proper format to pass it into a SP to be stored in the database.

When I try Thu Aug 1 10:42:00 2008, it returns 08/01/2008. When I try

Thu Aug   1 10:42:00 2008.

, I get Thu Aug 1 10:42:00 2008

I'm sorry if I didn't show properly before this editor formats the white spaces that's why now I have to use code tags.

I know it works the way you have tried, it works for me too, however, when there are two spaces. Perhaps a regular expression in between month and day to remove only one white space?

Any suggestions?

I will really appreciate it.
Thanks

nipper

Good spot, change \s to \s+ (between Aug 1) but you may want to do it everywhere

cdoloriert

Thanks, now it works Smiley Happy