使用IPC::Run模块时，进程异常终止如何获取输出？

当然可以在错误处理中拿到进程已经产生的STDOUT和STDERR！你遇到的问题本质是：当超时异常抛出时，run函数提前终止，此时子进程的输出缓冲区可能还有未被完全读取的内容，我们需要手动完成剩余的IO捕获步骤。

问题根源 #

IPC::Run的run函数在触发超时异常后，会中断当前的IO处理流程，但并不会自动完成剩余输出的读取。这就导致部分已经由子进程生成的输出还留在管道缓冲区里，没被写入你定义的$out和$err变量中。

解决方法 #

在捕获到异常后，先调用harness对象的finish()方法，它会处理所有剩余的标准输出和错误输出，把它们同步到你指定的变量里，之后再确保进程彻底终止即可。

修改后的代码如下：

@commands = ();
foreach my $id (1..3) {
    push @commands, ["perl", "script" . $id . ".pl"];
}

foreach my $cmd (@commands) {
    my $out = "";
    my $err = "";
    my $h = harness $cmd, \undef, \$out, \$err, timeout(12, exception => {name => 'timeout'});
    
    eval {
        run $h;
    };
    
    if ($@) {
        my $err_msg = $@;
        # 关键步骤：完成剩余输出的捕获
        $h->finish();
        # 现在$out和$err已经包含进程终止前的所有输出
        print "Captured STDOUT:\n$out\n";
        print "Captured STDERR:\n$err\n";
        $h->kill_kill; # 确保子进程彻底退出
    }
}

额外优化：解决输出缓冲问题 #

如果你的子进程是块缓冲模式（比如Perl脚本默认在管道输出时会启用块缓冲），可能会导致部分输出留在子进程内部缓冲区，即使调用finish()也拿不到。这时候可以在子脚本中开启自动刷新：

修改你的测试脚本：

$| = 1; # 开启标准输出自动刷新
for (my $i = 0; $i < 10; $i++) {
    sleep 1;
    print "Hello from script 1 " . localtime() . "\n";
}

这样每一行输出都会立即被发送到管道，IPC::Run就能实时捕获，不会因为缓冲丢失超时前的部分内容。

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