date conversion

[sathya83aa]

Hi all..

I have a variable in mmddyy format. But I would like to convert it to mm/dd/yyyy format.

Please help me in this regard.

Thanks & Regards,

Sathya V.

[Rahul6990]

Hi ,

One option is to use regex:


my $in_date = '051407';
(my $db_date = $in_date) =~ s/(\d\d)(\d\d)(\d\d)/$1-$2-$3/;
print ":$db_date:";


But there is one issue how would you find that date belongs to 20th century or 21st
Example:
The above date could be :05-14-2007 or 05-14-1907

And one advise its always better to search before you post a question.

[zork42]

As Rahul6990 said

But there is one issue how would you find that date belongs to 20th century or 21st

See http://en.wikipedia.org/wiki/Pivot_year

[hdb]

You could use substr to insert the slashes and the century into your data as it is already in the correct basic format. For example, substr $data, 2, 0, "/"; would insert a slash after the month into your date. Whether to insert "/20" or "/19" before the year still needs to be decided based on the last two digits of your date (or any other assumption you are willing to make).

[Loops]

use Date::Manip;
my $in = '051093';
print UnixDate($in =~ s#(..)(..)#$1/$2/#r, '%m/%e/%Y');

[mtmcc]

How are you getting your date originally (mmddyy)?

-Michael

[Anonymous Monk]

See number to date conversion