时间戳

首页 > 解决方案 > 如果从标准输入读取，刷新标准输出似乎没有效果

c - 如果从标准输入读取，刷新标准输出似乎没有效果

问题描述

我有以下脚本：

#!/usr/bin/perl -w
use strict;
$| = 1;
foreach (1..5) {
    print $_ . "\r";
    sleep 1;
}
print "\n";

这符合预期：数字 1、2、3、4、5 在控制台上相互覆盖。

$ ./loop.pl | hexdump -C
00000000  31 0d 32 0d 33 0d 34 0d  35 0d 0a                 |1.2.3.4.5..|

但是，一个不同的脚本（旨在显示隐藏长时间运行程序的大量输出，如下所示long_running_program | tee output | ./progr：）

#!/usr/bin/perl -w
use strict;
$| = 1;
while (<>) {
    chomp;
    print $_ . "\r";
}
print "\n";

重定向输入时产生不同的行为：

 perl -wle 'foreach (1..5) { print $_; sleep 1 }' | ./progr.pl

五秒钟内没有看到任何输出，然后可以看到“5”。然而 hexdump 显示相同的输出（五秒后）

$ perl -wle 'foreach (1..5) { print $_; sleep 1 }' | ./progr.pl | hexdump.exe -C
00000000  31 0d 32 0d 33 0d 34 0d  35 0d 0a                 |1.2.3.4.5..|

这不是 Perl 特定的。以下C代码

for (int i = 0; i < 6; ++i) {
    printf("%d\r", i);
    fflush(stdout);
    sleep(1);
}
puts("\n");

显示数字相互覆盖，但

#define SIZE (256 * 1024)
char buffer[SIZE];
int line = 0;
while (fgets(buffer, SIZE, stdin)) {
    printf("%d\r", ++line);
    fflush(stdout);
}
puts("\n");

在管道末端时，仅在输入耗尽后显示输出。

甚至不

setvbuf(stdout, NULL, _IONBF, 0);

似乎有帮助。

我通过 SSH 连接到远程 Linux (RHEL6) 系统并在本地 Cygwin 下尝试了所有这些。

（编辑自@Fredrik 和@usr 的更正）

标签： clinuxperlcygwin

解决方案

您正在查看错误的程序。您在管道的第二个程序中关闭了输出缓冲，但不是第一个。

如果连接到终端，则 STDOUT 为线路缓冲，否则为块缓冲。

行缓冲：​​输出换行时刷新。

Block-buffered：缓冲区填满时刷新。

由于管道的第一个程序（输入生成器）的 STDOUT 连接到管道，因此它的输出是块缓冲的。而且由于缓冲区足够大以容纳程序的全部输出，因此您的输入生成器在退出之前实际上不会输出任何内容。

改变

perl -wle 'foreach (1..5) { print $_; sleep 1 }' | ./progr.pl

至

perl -wle '$| = 1; foreach (1..5) { print $_; sleep 1 }' | ./progr.pl

但是，如果您无法控制程序怎么办？您有时可以使用unbuffer.

unbuffer perl -wle 'foreach (1..5) { print $_; sleep 1 }' | ./progr.pl

推荐阅读