forum.lissyara.su

Код: Выделить всё

use strict;
use DBI;
use Fcntl ':flock';
use File::Pid;

  my $pidfile = File::Pid->new({
    file => '/var/run/ll.pid',
  });

#  my $pid = $pidfile->pid;
#  print $pid;

use POSIX 'getpid';

my $pid_script = &getpid;
print $pid_script;

  $pidfile->write;

  if ( my $num = $pidfile->running ) {
      die "Already running: $num\n";
  }
................................................................................

print '1ghjfgj'; # test
$pidfile->remove;        
exec qw(perl -0777 -i -pe), 's/$/\n' . $pos . '/', $0;
    exit;
}

__DATA__
76402

Код: Выделить всё

# ./ll.pl
404091ghjfgj# 
# ./ll.pl
Already running: 40410
40410# 
# ./ll.pl
404111ghjfgj# 
# ./ll.pl
Already running: 40412
40412#