----- Original Message -----
From: "Jim Gibson" <jimsgibson [at] gmail.com>
To: "Perl List" <beginners [at] perl.org>
Sent: Wednesday, February 09, 2011 4:04 PM
Subject: Re: Randomizing a 24hr time period
> On 2/9/11 Wed Feb 9, 2011 1:05 PM, "Mike Blezien"
> <mickalo [at] frontiernet.net> scribbled:
>
>> ----- Original Message -----
>> From: "Paul Johnson" <paul [at] pjcj.net>
>> To: "Uri Guttman" <uri [at] StemSystems.com>
>> Cc: "Mike Blezien" <mickalo [at] frontiernet.net>; "Perl List"
>> <beginners [at] perl.org>
>> Sent: Wednesday, February 09, 2011 11:05 AM
>> Subject: Re: Randomizing a 24hr time period
>>
>>
>>> On Wed, Feb 09, 2011 at 11:16:07AM -0500, Uri Guttman wrote:
>>>>>>>>> "MB" == Mike Blezien <mickalo [at] frontiernet.net> writes:
>>>>
>>>>>> as i said a simple solution is to slice up the 24 hours into fixed
>>>>>> intervals. then pick a random time INSIDE each interval. random enough
>>>>>> for those types of people. this is close to one message an hour so there
>>>>>> is plenty of variability within each hour. and the coding is trivial.
>>>>
>>>> MB> Uri,
>>>>
>>>> MB> that's what I'm working on at the moment, trying to randomize the
>>>> MB> intervals after splitting up the 24hr period.
>>>>
>>>> so what is taking so long? it is about 2 lines of code! seriously, just
>>>> do int( rand( 60 ) and send it out that minute within the hour. (adjust
>>>> 60 for the actual period from splitting the day).
>>>
>>> "For every complex problem there is an answer that is clear, simple, and
>>> wrong." H. L. Mencken.
>>>
>>> Of course you can redefine the problem this way, but it's more interesting
>>> to
>>> solve the original problem.
>>>
>>> To go with Rob's solution, here's something that's (more) correct:
>>>
>>>
>>>
>>> #!/usr/bin/perl
>>>
>>> use strict; use warnings;
>>> my ($messages, $time_period) = [at] ARGV;
>>>
>>> # set up initial distribution
>>> my [at] times = map rand, 1 .. $messages;
>>> my $duration; $duration += $_ for [at] times;
>>>
>>> # spread over required time period
>>> my $factor = $time_period / $duration; $_ *= $factor for [at] times;
>>>
>>> # calculate actual times
>>> my $time = 0; $time = $_ += $time for [at] times;
>>>
>>> # shift down
>>> my $shift = rand $times[0]; $_ -= $shift for [at] times;
>>>
>>> my $n; printf "%2d. %02d:%02d\n", ++$n, $_, ($_ - int $_) * 60 for [at] times;
>>>
>>
>> Paul,
>>
>> quick question. my perl is a bit rusty, been away from it for awhile. But
>> this
>> line in your coding:
>>
>> my $n; printf "%2d. %02d:%02d\n", ++$n, $_, ($_ - int $_) * 60 for [at] times;
>>
>> I need to put the code: %02d:%02d into a variable to store it in a
>> database, the hour:minute, how would I go about putting them into a variable?
>
> "%02:%02d" is not code as such. It is part of the format specifier for the
> printf function.
>
> You can use a string variable for the format specifier:
>
> my $fmt = "%02d:%02d";
> print $fmt, $hour, $min;
>
> If that is not what you want, then maybe you want to put the string that is
> printed according to the specified format into a variable instead of writing
> to an output stream. To do that, use the sprintf function instead of printf:
>
> my $hhmm = sprintf("%02:%02",$hour,$min);
Ok how would I go about getting this variable from this line or I'm I missing
something:
my $n; printf "%2d. %02d:%02d\n", ++$n, $_, ($_ - int $_) * 60 for [at] times;
instead of printing it output ? This where I get messed up.
Thx's
Mike
--
To unsubscribe, e-mail: beginners-unsubscribe [at] perl.org
For additional commands, e-mail: beginners-help [at] perl.org
http://learn.perl.org/
