检查文件是否在 Perl 中打开的 state

Question

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

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

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

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

但是这样做的结果是文件被删除并留在打开的 state 中，这导致服务器上的磁盘空间问题。

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

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

如何使用 Perl 检查文件是否打开？ 如何检查 Perl 中的文件句柄是否打开？

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

Answer 1

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

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

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

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

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

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

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

然后检查 output 是否有由相同 pid 打开的文件： $$ 。

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

Answer 2

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