有没有办法知道信号处理程序中`local`变量的先前值？

Question

如何在代码块执行期间在信号处理程序中恢复STDOUT？

有没有办法知道信号处理程序中local变量的先前值？

Answer 1

{
    open my $devnull, '>', '/dev/null';
    local *STDOUT = $devnull;
    ...
}

Answer 2

在本地之前从STDOUT复制一个不同的文件句柄，并在信号处理程序中使用它。

Answer 3

可以使用select来保存旧的文件句柄，如下所示：

{
    open my $fh, '>', '/dev/null';
    my $oldstdout = select($fh);
    print $oldstdout "This prints to STDOUT";
    print "Junk to /dev/null"
    select $oldstdout;
    print "Back to STDOUT";
}