如何在Windows中解决输出缓冲问题？实现pause命令实时输出

这问题我太懂了！你遇到的核心卡点是：Windows的pause命令输出的Press any key to continue . . .没有结尾的换行符，而你当前的flush_handle函数用<$fh>按行读取——这种方式会一直等待换行符出现才会返回内容，所以就导致输出被卡住，直到你按任意键后（此时pause退出，管道关闭）才会一次性输出。

下面给你几个针对性的解决办法，都是基于你现有代码修改的：

方法1：改用sysread逐字节/块读取（最推荐） #

把按行读取的逻辑改成直接读取字节块，这样不管有没有换行符，都能即时拿到输出内容。修改你的flush_handle函数：

sub flush_handle {
    my ($fh) = @_;
    my $buffer;
    # 每次读取最多1024字节，直到没有内容可读
    while (sysread($fh, $buffer, 1024)) {
        # 去掉可能的换行符（如果有的话），然后打印
        $buffer =~ s/\r?\n$//;
        print(">> $buffer\n");
    }
}

原理说明 #

<$fh>是Perl的行输入操作符，默认会缓冲直到遇到换行符。而sysread是底层的读取函数，它会直接从文件句柄读取指定数量的字节，不管是否有换行，完美适配pause这种无换行的输出场景。

方法2：修改cmd调用参数，强制输出带换行 #

如果你不想改读取逻辑，也可以让pause的输出带上换行。通过cmd的内置命令先输出提示语（带换行），再让pause静默执行：

my $pid = $job->spawn("cmd", 'cmd /C "echo Press any key to continue . . . & pause >nul"', { stdout => $out_pipe });

原理说明 #

这里用echo手动输出和pause一样的提示语（带换行），然后让pause重定向输出到nul（静默），这样管道就能拿到带换行的提示内容，你的原flush_handle就能正常读取了。

额外修复：原代码的语法错误 #

顺便提一句，你原代码里gmtime()-$start_time多了个多余的括号，会导致编译错误，修正后应该是：

my ($h,$m,$s) = (gmtime() - $start_time)[2,1,0];

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