Beautiful! Cuts the CPU from 100% to nil for that second that was chewing the time -
I would have never thought of it though. Pretty new to programming and don't have the
full mindset yet.
Thanks,
Greg
On Thu, 17 Oct 2002 20:13:57 -0500
James Edward Gray II <[EMAIL PROTECTED]> wrote:
> How about:
>
> while (1) {
> my $start = time;
> # do what you need to do...
> my $end = 5 - (time - $start);
> sleep $end if $end > 0;
> }
>
> James
>
> On Thursday, October 17, 2002, at 07:52 PM, Greg Oliver wrote:
>
> > I am writing a program that will do a certain function every 5
> > seconds. Currently, I am testing the modulus of time() / 5 to do the
> > function in a tight loop, but that seems pretty sloppy to me.
> > Unfortunately, I do not know of any other ways.
> >
> > I have looked through all of the Time:: modules on CPAN.
> >
> > The process I am executing takes ~1 second to run, so after I have the
> > script sleep(3) to cut down on the resources. Is there something
> > simple I am missing here that I could use to do what i want?
> >
> > Thanks,
> >
> > Greg
> >
> > --
> > To unsubscribe, e-mail: [EMAIL PROTECTED]
> > For additional commands, e-mail: [EMAIL PROTECTED]
> >
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
