Controlling concurrent runs with Perl

Sometimes you have a program that can't be run by more than one person, or one that must run frequently but you don't know for sure how long an instance of it will take.

One way to accomplish that is to use a lock file.

#!/usr/bin/perl5
open(CNT, "/tmp/mylockfile");
flock CNT,2;
# program hangs here until other instance is done
# .. other processing when it is free
# release the lock
flock CNT,8;
close CNT;
 

If an instance is running, another instance will be stopped at the "flock CNT,2;" line and won't continue until the first program executes "flock CNT,8;".

But what if you don't want to just hang? An easy way to do that is to write your PID to a file:

#!/usr/bin/perl
open (L, "/tmp/mypid.lock");
$pid=<L>;
close L;
$stat=kill 0, $pid ;
chomp $stat;
chomp $pid;
if ($stat and $pid) {
 print  "\nExiting because $pid exists\n";
 exit 1;
}
open (L, ">/tmp/mypid.lock");
print L "$$\n";
close L;
.. other code
 

The "kill 0" actually doesn't even send a signal; it just checks to see if the process exists. If it does, we print a message and exit; otherwise the code continues.

These are two simple ways to control program execution with Perl.

3 comments

More Articles by Anthony Lawrence - Find me on Google+

Click here to add your comments




Mon Dec 12 15:31:40 2005:   bruceg


Thanks, Tony! Did you have me in mind, with my kludgy shell script I sent you a while back? This looks like what I need, intead of the shell madness I was unleashing on that poor server :-)

- Bruce



Tue Dec 13 21:43:01 2005:   TonyLawrence


No, it wasn't your script - just a general thing.



Thu Sep 3 20:50:32 2009:   anonymous


wow, that's cool indeed ;-)


Don't miss responses! Subscribe to Comments by RSS or by Email

Click here to add your comments

If you want a picture to show with your comment, go get a Gravatar

Jump to Comments

Many of the products and books I review are things I purchased for my own use. Some were given to me specifically for the purpose of reviewing them. I resell or can earn commissions from the sale of some of these items. Links within these pages may be affiliate links that pay me for referring you to them. That's mostly insignificant amounts of money; whenever it is not I have made my relationship plain. I also may own stock in companies mentioned here. If you have any question, please do feel free to contact me.

Specific links that take you to pages that allow you to purchase the item I reviewed are very likely to pay me a commission. Many of the books I review were given to me by the publishers specifically for the purpose of writing a review. These gifts and referral fees do not affect my opinions; I often give bad reviews anyway.

We use Google third-party advertising companies to serve ads when you visit our website. These companies may use information (not including your name, address, email address, or telephone number) about your visits to this and other websites in order to provide advertisements about goods and services of interest to you. If you would like more information about this practice and to know your choices about not having this information used by these companies, click here.