Get PID (process id) from Perl Script
Get PID (process id) from Perl Script $$ or $PID
SCCS – script header
SCCS – script header While sccs checked out a file, add these lines to the top of your script to preserve versions and file information. [bash] # Master: %P% # SCCS id: %Z% %M% %I% %E% [/bash]
Perl – Lock Files (flock)
Perl – Lock Files (flock) The following script is an example of using lock files in Perl. This prevents more than one user or process accessing a file at a time. [perl] use Fcntl qw(:DEFAULT :flock); use Fcntl ‘:flock’;¬†¬†¬†¬† #LOCK_* constants my($lockneedsremoving)=0; my($lockfilename)=”/var/.pwd.lock”; unless (createlock()) { print “Lock has been created”; print “This is only […]