Perl don't run this script more than once

%expand% Perl don't run this script more than once %set(body,%html-clean({

I find myself writing this kind of code, preventing a script from being run more than once, in a lot of different ways - for no good reason. This method seems to work the best for me over the years:


use File::Pid;
my $pf = File::Pid->new;
exit(0) if $pf->running;
$pf->write();
END {$pf->remove();}

The IPC and mutex stuff is cute, but not portable... or transparent. Plus, it's nice to have a pidfile out there for other reasons.

(When I forget how I solved a problem, I post it here. That way, I can google and get an answer.)

}))


Bracing against the wind
www.documentroot.com

View Archive

Free Blog Commenter & Counter

Memebot: Free Website Hosting

Americans for Approval Voting

2002 WTC Pics: Aug 12 Aug 16 Aug 30 Sep 11 Sep 23 Oct 24

Shop with Bitcoin At Amazon

Yvette's Weblog

All sites by me

RSS for this site

Lo! In the east against the blazing shadow of a rising sun, there come four men striding in unison, each step a journey, against the terrible winds.

Sunday, December 05, 2010

Perl don't run this script more than once
Posted 11:37 AM

I find myself writing this kind of code, preventing a script from being run more than once, in a lot of different ways - for no good reason. This method seems to work the best for me over the years:


use File::Pid;
my $pf = File::Pid->new;
exit(0) if $pf->running;
$pf->write();
END {$pf->remove();}

[View/Post Comments] [Digg] [Del.icio.us] [Stumble]

| Bloghop: | Blogarama | Technorati | Blogwise