Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Re: time difference in milliseconds

by osunderdog (Deacon)
on Nov 05, 2004 at 19:53 UTC ( #405607=note: print w/replies, xml ) Need Help??


in reply to time difference in milliseconds

Time::HiRes::tv_interval seems to work just fine for this.

use strict; use Time::HiRes qw|tv_interval|; use Test::More tests=> 5; is(timeDiff('01:00:00.000', '02:00:00.000'), 1*60*60, 'one hour differ +ence'); is(timeDiff('01:00:00.000', '01:01:00.000'), 1*60, 'one minute differe +nce'); is(timeDiff('01:00:00.000', '01:00:01.000'), 1, 'one second difference +'); # 45 milliseconds is xx part of a second. is(timeDiff('01:00:00.000', '01:00:00.045'), 45/1000000, 'fraction dif +ference'); my $Starttime = "05:07:53.249"; my $Finishtime = "05:07:55.401"; my $result = timeDiff($Starttime, $Finishtime); is(timeDiff($Starttime, $Finishtime), 2 + ((401-249)/1000000)); print "Difference (floating point seconds): $result\n"; sub timeDiff { my $st = shift; my $et = shift; return tv_interval( buildHRTime($st), buildHRTime($et)); } sub buildHRTime { my $string = shift; my $seconds = 0; my @c = split(/[:.]/, $string); $seconds += $c[0] * 60 * 60; # hours to seconds $seconds += $c[1] * 60; # minutes to seconds $seconds += $c[2]; # seconds return [$seconds, $c[3]]; }

"Look, Shiny Things!" is not a better business strategy than compatibility and reuse.


OSUnderdog

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (11)
As of 2017-10-17 13:28 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My fridge is mostly full of:

















    Results (232 votes). Check out past polls.

    Notices?