Date formatting

ibanix has asked for the wisdom of the Perl Monks concerning the following question:

Hello fellow Monks,

I've been absent from the monstary a long time, with work and such claiming hold of my life. It's appropriate then that I have a fairly simple question to ask on my return.

I have a date field in a file of type 'MM/DD/YYYY' where MM, DD, and YYYY are month, day and year respectively. I need to convert this to 'YYYY-MM-DD'.

I think my obvious approach would be to split the field and rewrite it like so:

$datefield = 'MM/DD/YYYY';
($mon, $day, $year) = split(/\//,$datefield,3);

$finaldate = $year."-".$mon."-".$day;
[download]

However, I'd really like to not reinvent well-working wheels -- is there a good date formatting function that will do this? I attempted to make localtime() do what I needed, without immediate success.

Thank you all!
ibanix

$ echo '$0 & $0 &' > foo; chmod a+x foo; foo;

Comment on Date formatting Select or Download Code

Replies are listed 'Best First'.
Re: Date formatting by davorg (Chancellor) on Jun 30, 2003 at 13:04 UTC
No, that sounds like a pretty good approach to me. You can get rid of your intermediate variables tho'. `$finaldate = join '-', (split(/\//, $datefield, 3))[2,0,1];` [download] -- <http://www.dave.org.uk> "The first rule of Perl club is you do not talk about Perl club." -- Chip Salzenberg	[reply] [d/l]
Re: Date formatting by dragonchild (Archbishop) on Jun 30, 2003 at 13:10 UTC
If you're doing more than that, I would suggest looking at Date::Manip and Date::Calc. ------ We are the carpenters and bricklayers of the Information Age. Don't go borrowing trouble. For programmers, this means Worry only about what you need to implement. Please remember that I'm crufty and crochety. All opinions are purely mine and all code is untested, unless otherwise specified.	[reply]
Re: Re: Date formatting by davorg (Chancellor) on Jun 30, 2003 at 14:14 UTC
Why bother loading external (and very large and slow) modules when this is really a text processing problem that can be solved very easily with standard Perl functions? -- <http://www.dave.org.uk> "The first rule of Perl club is you do not talk about Perl club." -- Chip Salzenberg	[reply]
Re3: Date formatting by dragonchild (Archbishop) on Jun 30, 2003 at 15:16 UTC
"If you're doing more than that" ... where "that" implies your original reply. While Date::Manip is large and slow and all things horrible ... Perl is large and slow and all things horrible too! If you're looking for execution speed, go to ASM. If you're looking for development speed, use the appropriate modules. Personally, I don't think the OP wanted the fastest solution. I believe he (and nearly everyone who posts on PM) is looking for the easiest solution. Both solutions are easy. Yours is easier in that it doesn't require learning how to use modules. Date::Manip is easier when the requirements change, like they always do. ------ We are the carpenters and bricklayers of the Information Age. Don't go borrowing trouble. For programmers, this means Worry only about what you need to implement. Please remember that I'm crufty and crochety. All opinions are purely mine and all code is untested, unless otherwise specified.	[reply]
Re: Re3: Date formatting by davorg (Chancellor) on Jun 30, 2003 at 15:28 UTC
Re: Re: Date formatting by xdg (Monsignor) on Jun 30, 2003 at 14:00 UTC
More specifically, with Date::Manip, you can parse and reformat with a single function call: `$ perl -MDate::Manip -le 'print UnixDate("06/07/2003","%Y-%m-%d");' 2003-06-07` [download] -xdg Code posted by xdg on PerlMonks is public domain. It has no warranties, express or implied. Posted code may not have been tested. Use at your own risk.	[reply] [d/l]
Re: Date formatting by nite_man (Deacon) on Jun 30, 2003 at 16:01 UTC
Try to do like this: `my $date = '06/30/2003'; $date =~ s!(\d{2})/(\d{2})/(\d{4})!$3-$1-$2!;` [download] -------------------------------- SV* sv_bless(SV* sv, HV* stash);	[reply] [d/l]