为什么本地不适用于 STDERR 和 STDOUT？

Question

对于我即将推出的 PulseAudio 库，我想在逻辑上将 STDERR 和 STDOUT 重定向到 /dev/null，这是可行的，

sub _exec {
    open (*STDERR, '>', '/dev/null');    
    open (*STDOUT, '>', '/dev/null');    
    CORE::system('pacmd', @_ ) or die $?;

但是，这仍然输出到术语....

sub _exec {
    local ( *STDERR, *STDOUT );
    open (*STDERR, '>', '/dev/null');    
    open (*STDOUT, '>', '/dev/null');    
    CORE::system('pacmd', @_ ) or die $?;

这让我有两个问题

1. 首先，为什么我会遇到我所看到的行为？
2. 其次，有没有更有效的方法，不涉及存储旧值并替换它？

Answer 1

孩子写入 fd 1 和 2，但您没有更改 fd 1 和 2。您只是使用 fd 3 和 4（孩子不关心的东西）创建了新的 Perl 变量（孩子一无所知）大约）。

这是实现您想要的一种方法：

use IPC::Open3 qw( open3 );

sub _exec {
    open(local *CHILD_STDIN,  '<', '/dev/null') or die $!;
    open(local *CHILD_STDOUT, '>', '/dev/null') or die $!;
    my $pid = open3(
        '<&CHILD_STDIN',
        '>&CHILD_STDOUT',
        undef,  # 2>&1
        'pacmd', @_,
    );
    waitpid($pid, 0);
    die $! if $? == -1;
    die &? if $?;
}

open3 级别很低，但比自己做的级别要高得多*。 IPC::Run 和 IPC::Run3 级别更高。

---

* - 它负责将句柄分叉并分配给正确的文件描述符。它处理错误检查，包括使子进程中的 pre-exec 错误看起来是启动失败，而不是来自已执行程序的错误。