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

Question

我有一个 Perl 脚本，它自己 fork 和守护进程。它由 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，就像以前的 STDOUT 一样？

我知道如果我从 tty 运行，我可以使用“/dev/tty”(但我是从 cron 运行并取决于其他地方的标准输出)。我还阅读了可以将 STDOUT 与 open SAVEOUT,">&STDOUT" 放在一起的技巧。 ，但是仅仅制作这个副本的行为并不能解决留下僵尸的原始问题。

我正在寻找是否有像 open STDOUT,"|-" 这样的魔法(我知道不是这样)以应该打开的方式打开 STDOUT。

Answer 1

# 文件描述符的副本

open(CPERR, ">&STDERR");

# 将标准错误重定向到警告文件

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

# 关闭重定向的文件句柄

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

# 恢复标准输出和标准错误

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

#我希望这对你有用。

#-哈里帕萨德 AJ