Perl：通过 open() 而无需 close() 创建僵尸

Question

问题是这样的： 我有一个守护进程，它从客户端获取请求，根据请求执行一个函数（来自某个模块）并向客户端返回答案。 在 fork() 之后，我关闭 STDIN、STDOUT 和 STDERR。 一项功能是检查 dmesg。为此，我通过以下方式获得 dmesg 输出 打开（DMESG，“/bin/dmesg |”）。我在读取后没有关闭这个 fh，因为我认为它会在函数完成后自动关闭。 但这并没有发生，每次调用 dmesg 都会得到一个僵尸。

如何重新初始化 Perl 的 STDIN/STDOUT/STDERR？我发现“关闭 STDOUT 而不是重新打开的问题是，如果您打开其他文件，它们可能会得到 fd 0,1 或 2 - 阻止您将来重新打开 STDOUT。”通过 jmanning2k 我认为这与此有关，但我不太明白。我希望有人可以向我解释一下。

我知道我可以避免这个问题，例如通过 qx(); 调用 dmesg;或者只是关闭 fh，但我想了解僵尸来自哪里。

Answer 1

表单

open DMESG, "/bin/dmesg|";

打开管道并将其分配给动态作用域变量DMESG<​​/code>。动态作用域变量实际上“永远”存在于 Perl 中，只要看到 local 就会根据需要保存。

如果您改为使用形式

open my $dmesg, "/bin/dmesg|";

lexical 文件句柄变量 $dmesg 将在范围退出时关闭，假设没有其他原因使其保持活动状态（即它没有传回或以其他方式存储在全局变量中）。

Answer 2

open(DMESG, "/bin/dmesg |")
我在读取后没有关闭这个 fh，因为我认为它会在函数完成后自动关闭。

为此，句柄必须是词法的，这样它就可以正确地超出范围。

open my $dmesg, …

Answer 3

问题与 Perl 的实现方式有关。下面是文件 doio.c 中函数 Perl_do_openn 的一段代码：

fd = PerlIO_fileno(IoIFP(io));
if (IoTYPE(io) == IoTYPE_STD) {
    /* This is a clone of one of STD* handles */
    result = 0;
}
else if (fd >= 0 && fd <= PL_maxsysfd) {
    /* This is one of the original STD* handles */
    saveifp  = IoIFP(io);
    saveofp  = IoOFP(io);
    savetype = IoTYPE(io);
    savefd   = fd;
    result   = 0;
}

如果打开一个现有的文件句柄，该文件句柄将被 open() 关闭并重新打开。正如您从上面的代码中看到的那样，STD* 句柄不会发生这种情况。因此 Perl 会打开下一个空闲句柄，而旧的句柄保持打开状态。