Perl中exec调用外部脚本后STDERR重定向失效的解决方法

问题原因 #

核心问题在于Perl中直接赋值*STDERR = *STDOUT仅复制了Perl层面的文件句柄对象，未正确修改操作系统底层的文件描述符（fd 2）。exec执行后，外部进程继承的是系统级文件描述符而非Perl句柄，因此会出现STDERR输出丢失或回退到终端的情况。

正确解决方案 #

方法1：使用Perl文件描述符复制语法 #

通过open STDERR, '>&', STDOUT明确将STDERR的文件描述符复制为STDOUT的描述符，确保系统层面的fd 2与fd 1指向同一文件。

示例代码：

use strict;
use warnings;

if (my $pid = fork()) {
    # 父进程：等待子进程执行完成
    waitpid($pid, 0);
} else {
    # 子进程：执行重定向与外部脚本调用
    # 关闭原有标准输出和错误输出
    close STDOUT;
    close STDERR;

    # 打开目标文件作为新STDOUT（追加模式，可改为>实现覆盖）
    open STDOUT, '>>', 'stdout.txt' or die "无法打开stdout.txt: $!";

    # 将STDERR的文件描述符复制为STDOUT的描述符
    open STDERR, '>&', STDOUT or die "无法重定向STDERR: $!";

    # 执行外部bash脚本
    exec './zombieWriter' or die "exec执行失败: $!";
}

方法2：使用POSIX模块的dup2系统调用 #

直接调用操作系统底层的dup2函数，手动将STDOUT（fd 1）和STDERR（fd 2）指向目标文件的描述符，兼容性更强，适配HP-UX和Linux环境。

示例代码：

use strict;
use warnings;
use POSIX qw(dup2);

if (my $pid = fork()) {
    waitpid($pid, 0);
} else {
    my $log_file = 'stdout.txt';
    # 关闭原有标准输出和错误输出
    close STDOUT;
    close STDERR;

    # 打开目标文件并获取文件描述符
    open my $fh, '>>', $log_file or die "无法打开$log_file: $!";
    my $fh_fd = fileno($fh);

    # 将STDOUT重定向到目标文件
    dup2($fh_fd, 1) or die "dup2设置STDOUT失败: $!";
    # 将STDERR重定向到目标文件
    dup2($fh_fd, 2) or die "dup2设置STDERR失败: $!";

    # 关闭多余文件句柄，避免资源泄漏
    close $fh;

    exec './zombieWriter' or die "exec执行失败: $!";
}

关键说明 #

• 两种方法均确保系统层面的文件描述符1和2指向同一文件，exec后的外部进程会继承这些描述符，因此STDOUT和STDERR输出都会写入目标文件。
• 可根据需求调整文件打开模式：>>为追加写入，>为覆盖写入。
• 两种方案在HP-UX和Linux环境下均可正常运行，无需额外适配。

内容的提问来源于stack exchange，提问作者Kzwix