在发生错误的情况下释放羊群？

在这种情况下，操作系统是否解锁？
它看到“嘿，获得锁的脚本崩溃”，并释放锁？
它是否立即释放锁定？

所有这些问题都依赖于系统。 Perl 5没有实现文件锁定功能，只是提供了flock(2) ， fcntl(2)锁定或lockf(3) （取决于OS中可用的）的通用接口。 程序退出，段错误或用sigkill杀死时可能会有所不同。

Linux下的快速测试显示，在正常退出条件下，锁被删除：

 $ perl -le 'open my $fh, ">", "f" or die $!; print flock($fh, 6) ? "got lock" : "was already locked", "\n"' got lock $ perl -le 'open my $fh, ">", "f" or die $!; print flock($fh, 6) ? "got lock" : "was already locked", "\n"' got lock 

让我们看看我们die会发生什么：

 $ perl -le 'open my $fh, ">", "f" or die $!; print flock($fh, 6) ? "got lock" : "was already locked", "\n"; die "died"' got lock died at -e line 1. $ perl -le 'open my $fh, ">", "f" or die $!; print flock($fh, 6) ? "got lock" : "was already locked", "\n"; die "died"' got lock died at -e line 1. 

要获得段错误，我们需要访问C，我正在使用Inline来获取它：

 $ cat segfault.pl #!/usr/bin/perl use strict; use warnings; use Inline "C"; open my $fh, ">", "f" or die $!; print flock($fh, 6) ? "got lock" : "was already locked", "\n"; crash(); __DATA__ __C__ void crash() { int* ptr = NULL; *ptr = 5; } $ perl segfault.pl got lock Segmentation fault $ perl segfault.pl got lock Segmentation fault 

最后，这是发送程序SIGKILL时发生的情况：

 $ cat fork.pl #!/usr/bin/perl use strict; use warnings; $SIG{CHLD} = "IGNORE"; #auto-reap children die "could not fork: $!" unless defined(my $pid = fork); unless ($pid) { #child open my $fh, ">", "f" or die $!; print flock($fh, 6) ? "got lock" : "was already locked", "\n"; sleep(100); exit; } kill 9, $pid; die "could not fork: $!" unless defined($pid = fork); unless ($pid) { #child open my $fh, ">", "f" or die $!; print flock($fh, 6) ? "got lock" : "was already locked", "\n"; exit; } $ perl fork.pl got lock got lock 

从这些实验中，我们可以看到，在Linux中针对您所关心的每个案例都发布了锁。

另外，每个脚本是否有一个perl实例正在运行，以便清楚哪个脚本在没有释放锁的情况下崩溃/停止？

是的，Perl 5每个脚本都有一个perl进程。 即使你分叉，孩子也会得到自己的perl进程。 线程不提供一个单独的perl进程。

注意：如果一个父进程获得一个锁，并且在锁定之前没有放弃它，那么即使该父进程退出，子进程也将拥有相同的锁。

当程序退出时，操作系统会自动释放程序获取的所有锁，并关闭程序打开的所有文件。