如何从Perl GUI脚本获取新CMD窗口中执行的Perl脚本输出？

当然可以搞定！你已经能让子脚本在新窗口独立运行且不阻塞GUI操作，现在要获取它们的输出结果，这里有几种实用的Perl方案，适配不同的需求：

方案1：输出重定向到日志文件（简单易实现） #

如果你的子脚本是通过终端窗口启动的（比如Linux用xterm、Windows用cmd），最直接的方式就是在启动命令里把输出重定向到日志文件，之后GUI脚本可以读取这些文件获取结果，同时终端窗口还能正常显示输出。

示例代码： #

• Linux/macOS：

  # 启动脚本1，同时把STDOUT和STDERR写入日志文件
  system("xterm -e 'perl perl_script_1.pl > script1_output.log 2>&1' &");
  # 启动脚本2同理
  system("xterm -e 'perl perl_script_2.pl > script2_output.log 2>&1' &");
  

• Windows：

  # 启动脚本1，重定向输出到日志
  system("start cmd /k \"perl perl_script_1.pl > script1_output.log 2>&1\"");
  # 启动脚本2同理
  system("start cmd /k \"perl perl_script_2.pl > script2_output.log 2>&1\"");
  

后续读取输出： #

你可以在GUI里定期轮询日志文件（比如用Tk的after方法），或者用系统级的文件变化监听模块（Linux用Linux::Inotify2，Windows用Win32::ChangeNotify）来实时获取更新。读取文件的代码示例：

sub read_script_output {
    my ($log_file) = @_;
    open my $fh, '<', $log_file or die "无法打开日志文件: $!";
    my @output = <$fh>;
    close $fh;
    return @output;
}

# 比如脚本1执行完后，读取全部输出
my @script1_result = read_script_output('script1_output.log');

方案2：用IPC模块结合GUI窗口（更优雅，实时控制） #

如果你的GUI是用Perl的GUI框架（比如Tk、WxPerl、GTK-Perl）搭建的，推荐用IPC::Open3（Perl核心模块，无需额外安装）或者IPC::Run（功能更强大，需CPAN安装）来启动子脚本，同时创建专门的GUI窗口显示输出，还能把输出存到变量里供后续处理。

下面是Tk框架的示例代码（同时实现新窗口显示+输出捕获）：

use Tk;
use IPC::Open3;
use Symbol 'gensym'; # 用于处理STDERR的符号引用

# 全局变量存储输出和错误信息
my (@script1_output, @script1_errors);
my (@script2_output, @script2_errors);

my $main_win = MainWindow->new(-title => 'Main GUI');
$main_win->Button(
    -text    => '启动两个脚本',
    -command => \&launch_scripts,
    -padx    => 20,
    -pady    => 10
)->pack;

sub launch_scripts {
    # 为脚本1创建输出窗口
    my $script1_win = $main_win->Toplevel(-title => '脚本1运行日志');
    my $script1_text = $script1_win->Scrolled('Text')->pack(-fill => 'both', -expand => 1);
    # 为错误文本设置红色标签
    $script1_text->tagConfigure('error', -foreground => 'red');

    # 用IPC::Open3启动脚本1，捕获STDIN/STDOUT/STDERR
    my ($wtr1, $rdr1, $err1);
    $err1 = gensym; # 处理STDERR的特殊符号
    my $pid1 = open3($wtr1, $rdr1, $err1, 'perl', 'perl_script_1.pl');

    # 非阻塞读取STDOUT
    $main_win->fileevent($rdr1, 'readable', sub {
        my $line = <$rdr1>;
        if (defined $line) {
            $script1_text->insert('end', $line);
            $script1_text->see('end'); # 自动滚动到最新行
            push @script1_output, $line; # 把输出存到变量
        } else {
            # 读取完毕，取消文件事件监听
            $main_win->fileevent($rdr1, 'readable', '');
            close $rdr1;
            waitpid $pid1, 0; # 等待子进程结束
            $script1_text->insert('end', "\n=== 脚本1执行完成 ===");
        }
    });

    # 非阻塞读取STDERR
    $main_win->fileevent($err1, 'readable', sub {
        my $line = <$err1>;
        if (defined $line) {
            $script1_text->insert('end', "*错误*: $line", 'error');
            $script1_text->see('end');
            push @script1_errors, $line; # 存储错误信息
        } else {
            $main_win->fileevent($err1, 'readable', '');
            close $err1;
        }
    });

    # 脚本2的处理逻辑和脚本1完全一致，这里省略重复代码
    # ......
}

MainLoop;

这个方案的优势是：

• 全程非阻塞，GUI不会因为子脚本运行而卡死
• 输出实时显示在专门的GUI窗口里，替代原生终端窗口
• 输出和错误信息都存在变量里，方便后续分析、存储或展示

注意事项 #

1. 如果用文件重定向，记得每次启动子脚本前清空日志文件，避免旧输出干扰：open my $fh, '>', $log_file; close $fh;
2. 在Windows系统下，IPC::Open3的STDERR处理可能需要额外调整，也可以用Win32::Process模块更精准地控制子进程
3. 如果用IPC::Run模块，可以更方便地处理输入输出的交互，比如给子脚本发送命令

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