jesuashok has asked for the wisdom of the Perl Monks concerning the following question:
Hi monks,
Interval is passed as 15.
from the hash "%normalise_with_this" using interval value I have to acess the first level of hash that is 15 or 30,
in our case I have to access 15.
From this I am able to access the second level of hash with the keys '00','15','30','45'.
In any of the values '46' will be there. In our case key '45' contains, 46 in it. (i,e) "45 .. 59 ".
How to point this efficiently using the above inputs which comes as a param to a function.
So function has to return the key 45.
If minute is 34, then function has to retun 30. because 34 lies in 30 => " 30 .. 44 ".
I have subroutine which gets two params
PARAM1 -> <time_stamp> Ex:200504250946
PARAM2 -> <interval> Ex:15 || 30 only
The function has to extract the minutes from time_stamp (i,e) substr("200504250946",10,2) which results '46' from the example.%normalise_with_this = ( 15 => { 00 => [ 0 .. 14 ], 15 => [ 15 .. 29 ], 30 => [ 30 .. 44 ], 45 => [ 45 .. 59 ] }; 30 => { 00 => [ 0 .. 29 ], 30 => [ 30 .. 59 ] }; );
Interval is passed as 15.
from the hash "%normalise_with_this" using interval value I have to acess the first level of hash that is 15 or 30,
in our case I have to access 15.
From this I am able to access the second level of hash with the keys '00','15','30','45'.
In any of the values '46' will be there. In our case key '45' contains, 46 in it. (i,e) "45 .. 59 ".
How to point this efficiently using the above inputs which comes as a param to a function.
So function has to return the key 45.
If minute is 34, then function has to retun 30. because 34 lies in 30 => " 30 .. 44 ".
"Keep pouring your ideas"
2006-04-25 Retitled by holli, as per Monastery guidelines
Original title: 'Ideas requested from all monks members'
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Round time to nearest 15 or 30 minutes
by atcroft (Abbot) on Apr 25, 2006 at 03:52 UTC | |
by jesuashok (Curate) on Apr 25, 2006 at 04:02 UTC | |
by DrHyde (Prior) on Apr 25, 2006 at 10:05 UTC | |
by bill_mcgonigle (Acolyte) on May 18, 2010 at 01:04 UTC | |
Re: Round time to nearest 15 or 30 minutes
by l.frankline (Hermit) on Apr 25, 2006 at 04:41 UTC |
Back to
Seekers of Perl Wisdom