从Perl脚本调用的子Perl脚本无法正常刷新stdout的问题

我之前也碰到过几乎一模一样的问题！当子脚本的输出没有直接绑定到终端时，哪怕开了$|++，\r的行覆盖刷新效果也会打折扣甚至完全失效。咱们一步步拆解问题、解决它：

当你在script.pl里调用script2.pl时，script2.pl的STDOUT大概率不是直接连接到终端（比如通过管道、qx//捕获输出，或者父进程的缓冲策略影响了子进程）。这种情况下，$|++的自动刷新可能没起到预期作用，而且\r（回车符）在非终端环境下不会覆盖当前行，只会被当成普通字符输出。

根据你用的调用方式，对应不同的修复手段：

1. 如果你用system()调用script2.pl #

默认system()会让子进程继承父进程的输出流，但有时候父进程自己的输出缓冲会拖后腿。你可以在调用前先给父进程的STDOUT也开自动刷新：

# 在script.pl的system调用前加上这行
$|++;
system('perl script2.pl');

如果父进程的输出本身就被重定向了，更彻底的办法是强制子进程直接输出到终端：

# 仅适用于类Unix系统（Linux/macOS等）
system('perl script2.pl > /dev/tty 2>&1');

这样script2.pl的进度更新会直接打在终端上，\r的行覆盖效果就能正常工作了。

2. 如果你用管道open()调用（比如open my $fh, '-|', 'perl script2.pl'） #

这种方式会把子进程的输出捕获到父进程的文件句柄里，\r的行覆盖效果自然失效，缓冲也会更明显。如果不需要捕获script2.pl的输出，直接换成system()调用是最简单的。如果必须用管道，就得在父进程里手动处理输出：

$|++; # 父进程先开自动刷新
open my $fh, '-|', 'perl script2.pl';
while (my $line = <$fh>) {
    chomp $line; # 去掉换行符
    print "$line\r"; # 手动用\r覆盖当前行
}
close $fh;

3. 在script2.pl里进一步加固输出逻辑 #

如果上面的方法都没解决，你可以在script2.pl里手动检测输出流是否为终端，针对性调整：

use IO::Handle;
# 只有当STDOUT是终端时，才启用回车刷新逻辑
if (-t STDOUT) {
    STDOUT->autoflush(1);
    print "Progress $progress percent...\r";
} else {
    # 非终端环境下换成普通换行输出（可选，根据需求调整）
    print "Progress $progress percent...\n";
}

另外，哪怕开了$|++，也可以在每次print后手动强制刷新，确保输出立即生效：

print "Progress $progress percent...\r";
STDOUT->flush();

先确认你在script.pl里用的是哪种调用方式：如果之前用的是my $output = qx/perl script2.pl/，这种方式会捕获所有输出，\r的效果肯定看不到，直接换成system()或者让子进程输出到终端就好。

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