Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot

Re: Need help get longest timediff

by Cristoforo (Curate)
on Jan 05, 2012 at 02:52 UTC ( #946315=note: print w/replies, xml ) Need Help??

in reply to Need help get longest timediff

Like ambrus's solution, Time::Piece doesn't recognize fractions of a second, (I believe), and I had to edit them out before feeding to the the strptime method for Time::Piece.

I noticed that the beginning times for each like Team-City pairing was the same. I didn't know if this was coincidence or that they would be the same in every case. This solution doesn't assume that.

#!/usr/bin/perl use strict; use warnings; use Time::Piece; # core since Perl v5.9.5 my @data; open my $fh, "<", 'o33.txt' or die $!; while (<$fh>) { push @data, [ split /,/ ]; my ($start, $end) = map Time::Piece->strptime($_, "%Y-%m-%d %H:%M: +%S"), map s/\.\d\d\d$//r, @{ $data[-1] }[2,3]; push @{ $data[-1] }, $end - $start; # piggyback elapsed seconds $d +ata[r][c] } close $fh or die $!; my %seen; my @lines = grep {!$seen{ "@$_[1,4]" }++} sort {$a->[1] cmp $b->[1] || $b->[-1] <=> $a->[-1]} @data; for my $rec (@lines) { printf "%s,%s,%0.2f hours\n", @$rec[1,4], $rec->[-1]/3600; } __END__ *** input (o33.txt) 1,BEAR,2011-11-21 08:49:16.000,2011-11-21 08:53:13.910,San Francisco,, +, 2,BEAR,2011-11-21 08:49:16.000,2011-11-21 12:50:31.550,San Francisco,, +, 3,BEAR,2011-11-21 08:49:16.000,2011-11-21 08:49:19.987,San Francisco,, +, 4,HAWK,2011-11-21 10:36:26.000,2011-11-21 10:45:11.823,Los Angeles,,, 5,HAWK,2011-11-21 10:36:26.000,2011-11-21 12:41:17.763,Los Angeles,,, 6,HAWK,2011-11-21 10:41:12.000,2011-11-21 10:55:08.393,San Francisco,, +, 7,HAWK,2011-11-21 10:41:12.000,2011-11-21 15:46:24.707,San Francisco,, +, 8,HAWK,2011-11-21 10:41:12.000,2011-11-22 11:09:13.907,San Francisco,, +, *** output BEAR,San Francisco,4.02 hours HAWK,San Francisco,24.47 hours HAWK,Los Angeles,2.08 hours

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://946315]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (4)
As of 2018-05-21 17:37 GMT
Find Nodes?
    Voting Booth?