Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

Re: Re: Re: Re: Re: Sorting by date

by Roger (Parson)
on Jan 06, 2004 at 12:39 UTC ( #319097=note: print w/replies, xml ) Need Help??

in reply to Re: Re: Re: Re: Sorting by date
in thread Sorting by date

That's why the sorted record I built has three parameters, normalized date, original date string, and a hash key. You retrieve the rest of the data with the hash key, which is $_->[2]. And also remember that how to optimize the storage/retrieval depends on what sort of output is required.

The code is actually quite simple, really. The sorting part is based on the Schwartzian Transform, invented by merlyn.

The following is the explanation of the sort, hope you might find it useful. ;-)
my @sorted_date = map { [ $_->[1], $_->[0], $_->[2] ] } sort { $b->[1] <=> $a->[1] } map { my @n = $list{$_} =~ /^(\d+)\.(\d+)\.(\d+):/; my $d = sprintf "%02d%02d%02d", @n[2,0,1]; [join('.',@n), $d, $_] } keys %list; step 1: build a list of hash keys: keys %list; step 2: build a new array by: for each element of the list built in step 1, capture the MM, DD and YY values into @n with the @ary = $str =~ /pattern/ idiom, normalize the date into YYMMDD form, store the original date, normalized date and hash key in anonymous array step 3: do the sort on normalized dates step 4: just reshuffle the fields in sorted data.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://319097]
[tye]: gah, Benchmark needs some serious work.
[tye]: though, really, I just replace with single calls to clock_gettime( CLOCK_PROCESS_CPUT IME_ID)

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (5)
As of 2017-02-23 03:05 GMT
Find Nodes?
    Voting Booth?
    Before electricity was invented, what was the Electric Eel called?

    Results (338 votes). Check out past polls.