我可以让 fcntl 和 Perl 警报配合吗？

Question

我在linux、nfs上，涉及多台机器。

我正在尝试使用 fcntl 来实现文件锁定。我一直在使用集群，直到我发现它只能在同一台机器上的进程之间运行。

现在，当我使用 F_SETLKW 调用 fcntl 时，perl 警报（用于添加超时）不再像以前那样工作。这通常没问题，但 ctrl-c 也不起作用。

我相信正在发生的事情是 fcntl 仅每 30 秒左右检查一次信号。警报最终还是回来了。 ctrl-c 被抓住了，...最终。

我可以做些什么来调整 fcntl 检查这些信号的频率吗？

Answer 1

我绝对不是这方面的专家，但据我所知，正如您所说， fcntl 不适用于您的情况。 fcntl 咨询锁仅在同一台机器内有意义。

如果这是偏离主题的，请忘记我。我使用 File::NFSLock 来解决缓存风暴/dogpile/stampeding 问题。有多个应用程序服务器在 NFS 卷上读取和写入缓存文件（这不是一个好主意，但这就是我们的开始）。

我对 File::NFSLock 进行子类化/包装以修改其行为。我特别需要：

• 持久锁，当 File::NFSLock 对象超出范围时，这些锁不会消失。使用常规 File::NFSLock，当对象超出范围时，您的锁将消失。这不是我需要的。
• 实际的锁定文件还包含获取锁定的计算机名称。进程ID显然不足以决定进程是否终止，所以我可以安全地窃取锁文件。因此，我修改了代码，将锁定文件编写为 machine:pid 而不仅仅是 pid。

这几年来效果非常好。

直到请求量增加了 10 倍。也就是说，上个月我开始遇到第一个问题，两个后端同时写入一个非常繁忙的缓存文件，从而留下死锁。当我们每天的综合浏览量达到 9-1000 万左右时，我就遇到了这种情况，只是为了给您一个想法。

最终损坏的缓存文件如下所示：

<!-- START OF CACHE FILE BY BACKEND b1 -->
... cache file contents ...
<!--   END OF CACHE FILE BY BACKEND b1 -->
... more cache file contents ... wtf ...
<!--   END OF CACHE FILE BY BACKEND b2 -->

仅当两个后端同时写入同一个文件时才会发生这种情况...尚不清楚此问题是否是由 File::NFSLock + 我们的 mods 或应用程序中的某些错误引起的。

总之，如果您的应用程序不是非常繁忙和流量，那么请选择 File::NFSLock，我认为这是您最好的选择。您确定仍想使用 NFS 吗？