在 Perl 中检查文件是否处于打开状态

Question

我有一个 24 X 7 运行的 Perl 守护进程，它正在运行类似这样的东西

my_program.pl > /logs/user/data.out

my_program.pl只有在应用程序出错时才会写入data.out文件，否则不会写入。

现在我是一个应用程序，它进行清理并检查文件是否在 /logs/user/ 下 2 天前它会删除文件并且在删除时没有任何错误。

但是这样做的结果是文件被删除并处于打开状态，这导致服务器上的磁盘空间问题。

现在我要做的是检查我的清理程序，如果文件已打开，请不要删除它，但我无法将其识别为清理应用程序，我只有文件名和路径。

我尝试了以下链接中给出的建议，但没有任何帮助。

How do you check if a file is open using Perl? How can I check if a filehandle is open in Perl?

您能否建议我们如何在 Perl 中处理这种情况

Answer 1

我认为与其重定向到文件，不如将消息发送到 syslogd（或其他）并让其处理所有细节，从而获得更好的结果。那些东西知道如何正确地清理和旋转文件。

Answer 2

问题不在 Perl 的控制范围内；您正在使用 shell 的重定向将 STDOUT 重定向到文件，因此从 Perl 的角度来看，写入将转到 STDOUT；它没有设置重定向。

在您的 Perl 程序中，您可以询问 -t STDOUT 是否已将 STDOUT 重定向到文件或者它是否是终端。但这并不能真正捕捉到该文件是否已打开。

一种可行的方法是测试lsof /logs/user/data.out。 lsof 是一个 shell 实用程序，而不是 Perl 函数，因此您需要使用反引号、qx 或类似名称来运行它。这将提供谁对该文件拥有声明的输出，包括 PID。因此，使用lsof，您可以确定文件是否已打开以及是谁打开的。如果打开了多个实体，您也会看到它（例如，尝试lsof /dev/null；很多实体都会打开它）。

如果lsof 没有返回文件的输出，那是因为没有人打开它。

但请记住，如果重定向是在脚本本身的外部设置的，那么通过硬编码该文件名来假设重定向永远不会改变是很脆弱的。根据用户与运行脚本的用户匹配的用户名进行 lsof 可能会更好，然后找到符合预期的文件。

lsof -u [UID or USERNAME] 命令将仅列出特定用户打开的文件。您可以将其与 $< 结合起来针对运行脚本的用户运行：

my $lsof_output = `lsof -u $< $path`;

然后检查由同一 pid 打开的文件的输出：$$。

为了完整起见，我将提到 CPAN 上有一个名为 Unix::Lsof 的 Perl 模块，它为您处理通过 lsof 输出进行解析的细节。