Perl process

[lmiu]

Hi, please can anyone help me. I have a Perl script running, its used for processing some files in batch.
Is there any script or ways that when I add in to the Perl script to check if theres a process currently running, if so die. So that hopefully the Perl script wouldn't try to process multiple files at once.


Thanks in Advance

 

[Rieekan]

One way would be to check for a lock file on your system which the script would create if there wasn't one already. Something like the following:

#!/usr/bin/perl

use strict;

my $lock_file = '/dir/to/lock.file';

if (-e $lock_file) {
    print qq(Lock file already present.  Ending script.);
    exit;
}

open (LOCK, ">$lock_file") or die "Cannot create lock file: $!';
print LOCK qq( );
close (LOCK) or die "Cannot close lock file: $!";

##Process starts here

unlink ($lock_file) or die "Cannot unlink lock file: $!";