Perl中如何在open函数内执行多条命令？

问题分析 #

你尝试的代码存在两个核心问题：

1. 语法错误：if语句行末尾多了一个多余的双引号))) " {，导致Perl解析失败，脚本无法正常运行。
2. PID跟踪误区：用分号连接多条命令时，open实际启动的是系统shell进程（Windows下是cmd.exe，Linux下是bash等），返回的$pid是shell的PID而非make命令的PID。shell执行完所有命令后会立即退出，后续用tasklist查询时该PID已不存在，导致$detailedPs为空。另外Windows默认没有grep命令，需用findstr替代。

修正后的实现 #

1. 基础修正版本（确保多条命令执行） #

先修复语法错误，同时保留错误输出重定向，确保捕获所有命令的输出和错误：

foreach $i (@testCases) {
    if (!($pid = open( my $pipe, "make $i; sleep 30; echo abc 2>&1 |" ))) {
        print "Problem opening a filehandle\n";
    } else {
        print "Shell PID: $pid\n";
        # 读取所有命令的输出
        while (my $line = <$pipe>) {
            chomp $line;
            print "Command output: $line\n";
        }
        # 关闭管道并检查命令执行状态
        close $pipe or warn "Command exit status: $?";
    }
}

2. 跟踪实际命令PID（可选） #

如果需要跟踪make进程的PID而非shell的PID，可以使用IPC::Open3模块直接启动命令，避免shell中转：

use IPC::Open3;
use Symbol 'gensym';

foreach $i (@testCases) {
    my ($wtr, $rdr, $err);
    $err = gensym; # 处理错误流
    # Windows下用cmd.exe执行多条命令，Linux可直接写命令串
    my $pid = open3($wtr, $rdr, $err, "cmd.exe", "/c", "make $i && sleep 30 && echo abc");
    print "Shell PID: $pid\n";

    # 读取输出和错误信息
    while (my $line = <$rdr>) {
        print "Output: $line";
    }
    while (my $line = <$err>) {
        print "Error: $line";
    }

    waitpid $pid, 0;
    print "Exit status: $?\n";
}

3. Windows下PID查询修正 #

如果一定要通过tasklist查询PID，需用findstr替代grep，且要在shell进程未退出时立即查询：

# 放在open后的第一行执行，避免shell退出后PID失效
my $detailedPs = `tasklist | findstr "$pid"`;
chomp $detailedPs;
print "$detailedPs\n";

关键说明 #

• 通过shell执行多条命令时，open返回的是shell的PID，shell会在所有命令执行完毕后退出，后续查询大概率无法找到该PID。
• 读取管道输出是验证命令是否执行的可靠方式，close $pipe后的$?可获取命令的退出状态。
• Windows环境下注意替换Linux类命令：grep→findstr，原生Windows的sleep需替换为timeout /t 30（如果用Git bash等环境可直接用sleep）。

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