Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things

Re: Generating basic time intervals between two times

by mikfire (Deacon)
on May 20, 2001 at 20:38 UTC ( #81850=note: print w/replies, xml ) Need Help??

in reply to Generating basic time intervals between two times

Just for grins, you could use something like this. Time::Local is a core module that translates a string representation of time into seconds - think of it as a reverse of localtime.
#!/usr/bin/perl -w use strict; use Time::Local; my $start = "7:30"; my $end = "11:45"; my $interval = 15; # Assuming time is in a 24-hour format and adjusting for my timezone : +) my ($start_sec,$end_sec) = map { /(\d+):(\d+)/;timelocal( 0, $2, $1, 1 +, 1,1970 ) } $start, $end; # In case the times cross the midnight boundary $end_sec += 86400 if ( $start_sec > $end_sec ); my $int_sec = $interval * 60; while ( $start_sec <= $end_sec ) { printf "%d:%02d\n", (localtime($start_sec))[2,1]; $start_sec += $int_sec; }
I use timelocal to translate the given times into the correct seconds - including timezone adjustments. I chose the Epoch for no particular reason. After that, I simply let localtime do its thing.

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (3)
As of 2018-05-28 02:26 GMT
Find Nodes?
    Voting Booth?