Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic

Re: Getting avg start time

by grep (Monsignor)
on Aug 09, 2007 at 16:02 UTC ( #631603=note: print w/replies, xml ) Need Help??

in reply to Getting avg start time

Get the time - but set the date to the same date every time to get a comparison.

Remember you want to compare times not dates and times so yoiu need to take the date out of the equation.

#!/bin/perl ## UNTESTED use strict; use warnings; use Date::Calc qw(Date_to_Time); use POSIX; my $time1 = Date_to_Time(2007,1,1,23,00,0); my $time2 = Date_to_Time(2007,1,1,03,00,0); my $time3 = Date_to_Time(2007,1,1,01,00,0); print "$time1\t$time2\t$time3\n"; my $avg = sprintf "%0.0f", (($time1+$time2+$time3)/3); print "$avg\n"; print strftime "%H:%M:%S\n", gmtime($avg);

Replies are listed 'Best First'.
Re^2: Getting avg start time
by Earindil (Beadle) on Aug 09, 2007 at 16:15 UTC
    That was actually my first attempt, but it doesn't work.
    $time1 = Date_to_Time(2007,1,1,23,00,0); $time2 = Date_to_Time(2007,1,1,03,00,0); $time3 = Date_to_Time(2007,1,1,01,00,0);
    1167692400      1167620400      1167613200
    Actually came up with a way to do this, but, would love to hear other/better suggestions. All of my jobs start at 5pm. So, what I can do is check and see if the start time of a particular job is < 5pm. If so, I know it started the next day, then I would do this:
    $time = Date_to_Time(2007,1,2,02,00,0);
    If it is after 5pm, then it's the same day so:
    $time = Date_to_Time(2007,1,1,23,00,0);

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (5)
As of 2018-06-23 17:57 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (125 votes). Check out past polls.