如何重新初始化 Perl 的 STDIN/STDOUT/STDERR？

Question

我有一个 Perl 脚本，它可以自行分叉和守护进程。它是由 cron 运行的，所以为了不留下僵尸，我关闭了 STDIN、STDOUT 和 STDERR：

open STDIN, '/dev/null'   or die "Can't read /dev/null: $!";
open STDOUT, '>>/dev/null' or die "Can't write to /dev/null: $!";
open STDERR, '>>/dev/null' or die "Can't write to /dev/null: $!";
if (!fork()) {
  do_some_fork_stuff();
  }

我的问题是：我想在此之后至少恢复 STDOUT（最好恢复其他2）。但是我需要使用什么魔法符号才能像以前那样重新打开 STDOUT？

我知道如果我从 tty 运行，我可以使用“/dev/tty”（但我是从 cron 运行并依赖于其他地方的 stdout）。我还读过一些技巧，您可以使用 open SAVEOUT,">&STDOUT" 将 STDOUT 放在一边，但仅制作此副本的行为并不能解决留下僵尸的原始问题大约。

我想看看是否有像 open STDOUT,"|-" （我知道不是）这样的魔法以应有的方式打开 STDOUT。

Answer 1

# 文件描述符的副本

open(CPERR, ">&STDERR");

# 将 stderr 重定向到警告文件

open(STDERR, ">>xyz.log") || die "Error stderr: $!";

# 关闭重定向的文件句柄

close(STDERR) || die "Can't close STDERR: $!";

# 恢复 stdout 和 stderr

open(STDERR, ">&CPERR") || die "Can't restore stderr: $!";

# 我希望这对您有用。

#-哈里普拉萨德 AJ

Answer 2

如果它仍然有用，我会想到两件事：

1. 您可以仅在子进程中关闭 STDOUT/STDERR/STDIN（即 if (!fork()）。这将允许父进程仍然使用它们，因为它们'仍然会在那里打开。

2. 我认为您可以使用更简单的 close(STDOUT) 而不是将其打开到 /dev/null。

例如：

if (!fork()) {
    close(STDIN) or die "Can't close STDIN: $!\n";
    close(STDOUT) or die "Can't close STDOUT: $!\n";
    close(STDERR) or die "Can't close STDERR: $!\n";
    do_some_fork_stuff();
}

Answer 3

一旦关闭，就没有办法恢复了。

为什么又需要STDOUT？将消息写入控制台？为此，请使用 /dev/console，或使用 Sys::Syslog 写入系统日志。

老实说，另一个答案是正确的。如果您想稍后重新打开它，则必须保存旧的标准输出（克隆到新的 fd）。它确实解决了“僵尸”问题，因为您可以将 fd 0（以及 1 和 2）重定向到 /dev/null。