cron-like timing within perl script?

n8ur has asked for the wisdom of the Perl Monks concerning the following question:

Hi all -- I am trying to design a perl script that triggers data collection and logging every X seconds. The problem is that the collection process (reading data from an external instrument via a GPIB port) takes an imprecise amount of time; on a 60-second cycle, I can estimate the time the instrument will take to within two or three seconds, but not more closely than that.

So something as simple as:

while (1) {
     get_data_taking_exactly_55_seconds;
     sleep(5);
     write_log_file;
     }
[download]

doesn't cut it; my log entries won't be properly aligned because the data collection function may take a bit more or less than 55 seconds.

What I want to do, I think, is along the lines of:

while (1) {
     set timer;
     get_data_taking_55_seconds_give_or_take_a_few;
     sleep_until_timer_says_60_seconds;
     write_log_file;
     }
[download]

It seems like using the alarm function to trigger the reading process on receipt of SIGALRM should let me do this but I haven't figured out how to make it work reliably; in particular, I can't figure out what kind of loop structure I need to keep the program alive.

I'd sure appreciate any help on how to implement a "sleep until alarm" capability in my program.

Thanks!

Comment on cron-like timing within perl script? Select or Download Code

Replies are listed 'Best First'.
•Re: cron-like timing within perl script? by merlyn (Sage) on Feb 28, 2004 at 19:45 UTC
`while (1) { system "your task"; sleep 60 - (time % 60); }` [download] -- Randal L. Schwartz, Perl hacker Be sure to read my standard disclaimer if this is a reply.	[reply] [d/l]
Re: cron-like timing within perl script? by flyingmoose (Priest) on Feb 28, 2004 at 19:38 UTC
Yes, I think you want something like (warning, untested:) `while ($looping) { # mark the time $t = time(); # do whatever you want here execute_my_periodic_operation_here(); # wait until the end of 60 seconds # but don't hammer the cpu .. the sleep keeps # from calling time() way too often while(time() < $t+60) { sleep(1); } }` [download] * note that the above example is not set to wait for even 60 second boundaries of t. I'm assuming you don't care. If clean minute boundaries are important, this needs to be implemented differently. Another non-wheel-reinventing option might be to look at POE. POE is fairly cool, but it tends to not fit in with normal programming idioms, so it may change the architecture of your program somewhat. Other monks may be able to suggest other CPAN modules that would be cleaner and more portable than the ALARM (or my version) and less heavyweight than POE. I'd be interested to hear what those were. Update: merlyn's code below is more efficient and his code sleeps to the next 60 second boundary... this is closer to what you want.	[reply] [d/l]
•Re: Re: cron-like timing within perl script? by merlyn (Sage) on Feb 28, 2004 at 20:08 UTC
Another non-wheel-reinventing option might be to look at PAR. PAR is fairly cool, but it tends to not fit in with normal programming idioms, so it may change the architecture of your program somewhat. That sentence makes a lot more sense if I replace PAR with POE. Perhaps you meant POE instead? -- Randal L. Schwartz, Perl hacker Be sure to read my standard disclaimer if this is a reply.	[reply]
Re: •Re: Re: cron-like timing within perl script? by flyingmoose (Priest) on Feb 28, 2004 at 20:09 UTC
Yep. Too many TLA's around here.	[reply]
Re: cron-like timing within perl script? by matija (Priest) on Feb 28, 2004 at 19:52 UTC
You're very close to the right answer, and if I take your code, it would look like this: `while (1) { next_time=time+60; get_data_taking_55_seconds_give_or_take_a_few; sleep next_time-time; write_log_file; }` [download] Note that you will still have a +/- 1 second drift, so the exact time of measurements would still drift. For higher accuracy, you pre-determine the times: `next_time=time; while (1) { next_time=next_time+60; get_data_taking_55_seconds_give_or_take_a_few; sleep next_time-time; write_log_file; }` [download]	[reply] [d/l] [select]
Re: Re: cron-like timing within perl script? by Anonymous Monk on Feb 28, 2004 at 20:06 UTC
This looks like the ticket... particularly if I use Time::HiRes to get subsecond time and sleep resolutions; that'll let me stay within my measurement tolerances. Thanks! This is a great resource!!! John	[reply]
•Re: Re: Re: cron-like timing within perl script? by merlyn (Sage) on Feb 28, 2004 at 20:11 UTC
You don't need Time::HiRes if you always sleep to a multiple of the 1-second system clock, which sleep(2) does. Since your requirement was an integer multiple of 1 second, that's the simplest. Now, if you wanted a task performed every 59.23 seconds, yes, Time::HiRes would help. -- Randal L. Schwartz, Perl hacker Be sure to read my standard disclaimer if this is a reply.	[reply]
Re: Re: Re: cron-like timing within perl script? by n8ur (Acolyte) on Feb 28, 2004 at 20:08 UTC
Sorry... didn't realize I wasn't logged in when I left that. Thanks again! John	[reply]
Re: cron-like timing within perl script? by Anonymous Monk on Feb 29, 2004 at 23:06 UTC
Funnily enough, as I'm reading this page the aphorism under the banner is "Keep It Simple, Stupid" (no offense, it really is what it says)! If you want the script to do something once every sixty seconds, why not simply run it under cron (or atd or windows scheduler or whatever) every minute? You wouldn't have to worry so much about memory leaks or monitoring for your process getting inadvertantly killed, etc either. Am I missing something?	[reply]
•Re: Re: cron-like timing within perl script? by merlyn (Sage) on Mar 01, 2004 at 00:37 UTC
Maybe the program has state that is expensive to save and restore, or a database connection, or needs interaction before forking into the background. -- Randal L. Schwartz, Perl hacker Be sure to read my standard disclaimer if this is a reply.	[reply]
Re: cron-like timing within perl script? by fuzzycow (Sexton) on Mar 01, 2004 at 13:09 UTC
There are a number of cron-like perl modules on CPAN. I worked with Schedule::Cron, and it performed rather nicely. If you don't want your jobs to fork you may want to try Schedule::Cron::Nofork (haven't checked this one yet)	[reply]
Re: cron-like timing within perl script? by mce (Curate) on Mar 02, 2004 at 11:11 UTC
Hi, Why not fool around with alarm and its signal handler $SIG{ALRM}? I don't have time to make such a script, but this might help you. --------------------------- Dr. Mark Ceulemans Senior Consultant BMC, Belgium	[reply]
Re: cron-like timing within perl script? by Tomte (Priest) on Mar 02, 2004 at 11:21 UTC
Update: Gee, I should read the whole thread more thoroughly before answering, completly overlooked fuzzycow's recommending the same module... I feel obliged to mention Schedule::Cron, which might do more than necessary, but seems appropriate to me. regards, tomte Hlade's Law: If you have a difficult task, give it to a lazy person -- they will find an easier way to do it.	[reply]