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

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]
[shmem]: [Discipulus: what do you mean by "dump" ?
[shmem]: Discipulus: what do you mean by "dump" ?
[Discipulus]: get them all printed on screen
Discipulus ;=)
[shmem]: silly question, silly answer:
[Discipulus]: i know, i know..
[shmem]: man perlfunc |perl -nle '$ok++ if /Alphabetical Listing of Perl Functions/;if($ok ){$s{$1}++if /^ (\w+)/}}{for(keys %s){$f="prototype \\\&CORE::$_"; eval"$f"||delete $CORE::{$_}}print for sort keys%CORE::'
[shmem]: well, there are some builtins which don't have a prototype...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (9)
As of 2017-05-23 10:02 GMT
Find Nodes?
    Voting Booth?