Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

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;


Comment on Re: Sorting The Date format Values without using any perl modules.
Select or Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (6)
As of 2014-12-27 08:22 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (176 votes), past polls