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

前端之家收集整理的这篇文章主要介绍了如何重新初始化Perl的STDIN/STDOUT/STDERR?前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
我有一个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,就像STDOUT过去那样呢?

我知道我可以使用“/ dev / tty”,如果我从一个tty运行(但是我从cron运行,并且依赖于别的stdout)。我也读了一些技巧,你可以把STDOUT放在一边打开SAVEOUT,“>& STDOUT”,但只是这个拷贝的行为并不能解决原本的僵尸离开的问题。

我想看看是否有一些像开放式STDOUT这样的魔法,“| – ”(我不知道这样)打开STDOUT应该被打开的方式。

解决方法

如果仍然有用,可以考虑两件事:

>您可以在子进程中关闭STDOUT / STDERR / STDIN(即if(!fork()),这样允许父进程仍然使用它们,因为它们仍然在那里打开。
>我想你可以使用更简单的关闭(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();
}

猜你在找的Perl相关文章