使用IPC::Open3在同一Shell执行多命令仅首次调用有效问题

问题现象 #

在无法安装额外软件的受限系统中，使用IPC::Open3维持同一个bash会话执行多条命令，期望后续命令能继承前序命令修改的环境变量。但runner函数仅首次调用有效，后续调用无任何输出。

根因分析 #

1. 输入句柄被提前关闭：第一次调用runner时执行了close IN，直接关闭了bash的标准输入通道。bash收到EOF后会立即退出进程，后续再尝试向已关闭的句柄发送命令，自然无法被处理。
2. 过早等待进程结束：每次调用runner都执行waitpid $PID, 0，该函数会阻塞直到bash进程终止。第一次调用后bash已经退出，第二次调用时没有存活的进程处理命令。
3. 输出读取逻辑不合理：使用local $/; <OUT>一次性读取全部输出，仅在进程关闭输出句柄时才会返回。但bash在存活状态下不会主动关闭输出句柄，后续调用时会一直阻塞在这里（不过在这个场景中因为bash已经退出，所以直接返回空）。

修复方案 #

修改runner函数，保持bash会话的输入通道打开，调整输出读取逻辑，直到所有命令执行完成后再关闭输入并等待进程结束：

修改后的代码 #

#!/usr/bin/perl

use IPC::Open3;
use utf8;
use IO::Select;

# 启动bash会话，获取句柄
my $pid = open3(*IN, *OUT, *ERR, "/bin/bash");
# 创建IO选择器，监听输出和错误流
my $sel = IO::Select->new(\*OUT, \*ERR);

my @output_arr;
my @error_arr;

sub runner {
    my ($CMD, $REGEX) = @_;
    # 发送命令到bash
    print IN "$CMD\n";
    
    my ($cmd_output, $cmd_error) = ('', '');
    
    # 监听输出流，超时5秒防止无限阻塞
    while (my @ready = $sel->can_read(5)) {
        foreach my $fh (@ready) {
            my $line = <$fh>;
            # 若句柄已关闭则退出循环
            last unless defined $line;
            
            # 区分标准输出和标准错误
            if ($fh == \*OUT) {
                $cmd_output .= $line;
            } else {
                $cmd_error .= $line;
            }
            
            # 匹配到目标正则后提前结束读取
            last if ($cmd_output =~ m/$REGEX/ || $cmd_error =~ m/$REGEX/);
        }
    }
    
    # 检查匹配结果并输出
    if ($cmd_output =~ m/$REGEX/ or $cmd_error =~ m/$REGEX/) {
        print "$CMD output contains $REGEX\n"
    } else {
        print "$CMD output does not contain $REGEX, command output is '$cmd_output' ,error is '$cmd_error'\n"
    }
    
    push @output_arr, $cmd_output;
    push @error_arr, $cmd_error;
    return ($cmd_output, $cmd_error);
}

# 执行测试命令
my ($date_output, $date_error) = runner("LC_ALL=C date", qr/2023/s);
my ($date_output2, $date_error2) = runner("LC_ALL=C date", qr/Jan/s);

# 所有命令执行完成后，关闭输入通道并等待bash退出
close IN;
waitpid $pid, 0;

关键改动说明 #

• 保持输入通道开放：移除close IN，直到所有命令执行完毕后再关闭输入，确保bash会话一直存活。
• 使用IO::Select监听输出：通过IO选择器同时监听标准输出和错误流，支持超时读取，避免因bash未关闭句柄导致的无限阻塞。
• 逐行读取并匹配：逐行读取输出内容，一旦匹配到目标正则就提前结束读取，提升效率。
• 统一等待进程结束：仅在所有命令执行完成后调用waitpid，等待bash进程正常退出。

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