date sorting module

[Sam]

Hello
I just came from cpan, after doing some searches and before I get a module,
wanted to ask if any one out there knows of a module that takes an array of
dates and sort them regardless of the date formate.

thanks

[Andreas Kahari]

In article <3f66c9a3$1@news.comindico.com.au>, Sam wrote:

> Hello
> I just came from cpan, after doing some searches and before I get a module,
> wanted to ask if any one out there knows of a module that takes an array of
> dates and sort them regardless of the date formate.

If the dates doesn't follow any pattern, how could you sort it?
Compare for example the US date format with som eof the European
ones: Does one sort 9/7/2002 before or after 7/10/2002 if one
doesn't know what format they are on?


--
Andreas Kähäri

[Tad McClellan]

Sam <samj@austarmetro.com.au> wrote:

> I just came from cpan, after doing some searches and before I get a module,
> wanted to ask if any one out there knows of a module that takes an array of
> dates and sort them regardless of the date formate.

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

You can't.


How can you distinguish between these two formats for instance:

09-07-2003 # MM-DD-YYY - September 7
and
09-07-2003 # DD-MM-YYY - July 9

??


--
Tad McClellan SGML consulting
[email]tadmc@augustmail.com[/email] Perl programming
Fort Worth, Texas

[Mothra]

Hi Sam,

"Sam" <samj@austarmetro.com.au> wrote in message
news:3f66c9a3$1@news.comindico.com.au...

> Hello
> I just came from cpan, after doing some searches and before I get a

module,

> wanted to ask if any one out there knows of a module that takes an array

of

> dates and sort them regardless of the date formate.

This might give you some ideas

use strict;
use warnings;
use DateTime;
my @new_dates;

my @dates =("Sat, 19 Jul 2003 15:53:45 -0500","1996-02-03","08-Feb-1998
14:15:29 GMT");


foreach my $new_date (@dates) {
push(@new_dates, DateTime::Format::Mytest->parse_datetime($new_date) );
}

print map {$_->datetime(), "\n"} sort @new_dates;



package DateTime::Format::Mytest;

use DateTime::Format::HTTP;
use DateTime::Format::Mail;


use DateTime::Format::Builder (
parsers => { parse_datetime => [
sub { eval { DateTime::Format::HTTP->parse_datetime( $_[1] ) } },
sub { eval { DateTime::Format::Mail->parse_datetime( $_[1] ) } },
] }
);