Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

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

by TedPride (Priest)
on Dec 26, 2005 at 21:21 UTC ( [id://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?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://519208]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others surveying the Monastery: (3)
As of 2024-04-19 21:45 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found