Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number

Re: Sorting The Date format Values without using any perl modules.

by TedPride (Priest)
on Dec 26, 2005 at 21:21 UTC ( #519208=note: print w/replies, xml ) Need Help??

in reply to Sorting The Date format Values without using any perl modules.

Since your dates appear to be fixed-width, and are arranged year-month-day, there's no reason why you can't use the basic sort, as mentioned above:
my @list = ('2005-12-01', '2005-11-02', '2005-12-07'); @list = sort @list; print join "\n", @list;
If you want them from most recent to least recent, just reverse:
@list = reverse sort @list;
Things get a bit more difficult if your dates are arranged in a different order, but it's still fairly easy to do:
use strict; use warnings; my @sort = ('05-11-2006', '01-01-2005', '04-12-2005', '22-03-2005'); @sort = map { join '-', reverse split /-/ } sort map { join '-', reverse split /-/ } @sort; print join "\n", @sort;

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://519208]
[marto]: it makes things less stressful for the parents that's for sure :P
[Corion]: Yeah (although their mother was somewhat stressed out regardless) - but it made for an otherwise relaxed evening ;)

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (9)
As of 2016-12-08 09:55 GMT
Find Nodes?
    Voting Booth?
    On a regular basis, I'm most likely to spy upon:

    Results (139 votes). Check out past polls.