Подпрограмма блокировки Perl

Это небезопасно. В вашем коде есть состояние гонки, так как между -e и open есть время. Никогда не используйте -e с файлами блокировки.

Вместо того, чтобы проверять, существует ли файл, проверьте, не заблокирован ли он уже. Это делается с помощью неблокирующего файла flock. Он вернет успех, если файл еще не заблокирован, и вернет ошибку EWOULDBLOCK, если файл уже заблокирован.

Обратите внимание, что для того, чтобы это работало, вы должны удерживать блокировку в течение всего времени выполнения sub_that_should_be_locked. (Ваш код выпускает его, как только получает.)

use Fcntl qw( LOCK_EX LOCK_NB );

sub get_lock_nb {
   my ($qfn) = @_;

   open(my $fh, '+>:raw', $qfn)
      or die("Unable to open file \"$qfn\": $!\n");

   if (!flock($fh, LOCK_EX | LOCK_NB)) {
      return undef if $!{EWOULDBLOCK};
      die("Unable to lock file \"$qfn\": $!\n");
   }

   return $fh;
}

sub sub_that_should_be_locked {
   ... Mutually exclusive code ...
}

{
   my $lock = get_lock_nb("file.lock");
   sub_that_should_be_locked() if $lock;
}

Потоки, которые вы хотите синхронизировать, не должны создавать и удалять файлы блокировки.

Вы должны убедиться, что файл существует до запуска потоков, а затем подпрограмма должна использовать лексический дескриптор файла, чтобы открыть файл блокировки для ввода.

Нравится

open my $lock_fh, '<', $lockfile or die $!;
flock $lock_fh, LOCK_EX;

как его первое действие. Это приостановит поток до тех пор, пока он не окажется в очереди, после чего файл будет неявно закрыт в конце подпрограммы (и, таким образом, освободит его блокировку), потому что $lock_fh выходит за пределы области видимости.