Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Re^3: Need help comparing 4 dates (Fixed.)

by BrowserUk (Pope)
on Oct 03, 2010 at 10:31 UTC ( #863163=note: print w/ replies, xml ) Need Help??


in reply to Re^2: Need help comparing 4 dates (sort errors?)
in thread Need help comparing 4 dates

Duh! Of course. Thanks.

Once I've sorted the indices by the dates, in order to rank them; I need to sort the indices by that ranking to get them back into the original order:

#! perl -slw use warnings; use strict; use Data::Dumper; use Date::Manip; print scalar <DATA>; while (<DATA>) { chomp; my @dates = split '~'; my $label = shift @dates; my @order = sort{ Date_Cmp( $dates[ $a ], $dates[ $b ] ); } 0 .. $#dates; print join "\t", $label, map $_+1, sort{ $order[ $a ] <=> $order[ $b ] } 0..$#order; } __DATA__ EVENT JIM BOB SAM JACK PTRED~09/29/10 03:23:05 PM ~09/28/10 02:21:09 PM ~09/26/10 11:00:03 AM + ~09/27/10 09:33:41 PM RED~08/29/10 01:55:00 AM ~08/30/09 12:10:10 PM ~08/27/10 08:16:21 PM ~ +09/01/10 12:12:12 AM INT~07/04/10 03:21:15 AM ~07/08/10 04:17:33 PM ~06/30/10 04:22:11 AM ~ +06/28/10 10:11:01 PM PTRED~06/19/10 09:19:55 PM ~04/25/10 07:39:22 PM ~09/16/10 10:34:24 AM + ~07/22/10 06:19:38 PM RED~04/29/10 12:10:59 AM ~04/20/10 02:13:33 AM ~07/17/10 01:00:05 PM ~ +09/01/10 11:10:15 PM INT~05/23/10 11:11:11 PM ~01/08/10 10:45:12 PM ~05/15/09 03:29:37 AM ~ +05/18/09 12:59:59 PM

Produces:

c:\test>junk51 EVENT JIM BOB SAM JACK PTRED 4 3 1 2 RED 3 1 2 4 INT 3 4 2 1 PTRED 2 1 4 3 RED 2 1 3 4 INT 4 3 1 2

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.


Comment on Re^3: Need help comparing 4 dates (Fixed.)
Select or Download Code
Re^4: Need help comparing 4 dates (Fixed.)
by dirtdog (Beadle) on Oct 03, 2010 at 15:44 UTC

    Thank you so much! This is spot on!

Re^4: Need help comparing 4 dates (Fixed.)
by dirtdog (Beadle) on Oct 03, 2010 at 16:50 UTC

    Hi All, this does work beautifully, except for one thing...i keep getting the following warning message:

    Use of uninitialized value in length at /u/capsftp/lib/perl5/site_perl/5.8.0/Date/Manip.pm line 247, <DATA> line 2

    I was curious if you were getting it also? and if so, any idea what is causing it? With Data::Dumper i can see the values all seem to be defined when passed to the Date_Cmp function so not sure why it's happening

      Have you by any chance got a blank line after the headers and before the dates?

        I don't have a blank line after the header and before the dates

        __DATA__ EVENT JIM BOB SAM JACK PTRED~09/29/10 03:23:05 PM~09/28/10 02:21:09 PM~09/26/10 11:00:03 AM~0 +9/26/10 11:00:02 AM RED~08/29/10 01:55:00 AM~08/30/09 12:10:10 PM~08/27/10 08:16:21 PM~09/ +01/10 12:12:12 AM INT~07/04/10 03:21:15 AM~07/08/10 04:17:33 PM~06/30/10 04:22:11 AM~06/ +28/10 10:11:01 PM PTRED~06/19/10 09:19:55 PM~04/25/10 07:39:22 PM~09/16/10 10:34:24 AM~0 +7/22/10 06:19:38 PM RED~04/29/10 12:10:59 AM~04/20/10 02:13:33 AM~07/17/10 01:00:05 PM~09/ +01/10 11:10:15 PM INT~05/23/10 11:11:11 PM~01/08/10 10:45:12 PM~05/15/09 03:29:37 AM~05/ +18/09 12:59:59 PM

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (8)
As of 2014-10-01 15:35 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    What is your favourite meta-syntactic variable name?














    Results (29 votes), past polls