Perl循环不打印出字符

Question

这个让我着迷。

这个有效:

print "Processing Feed\n";
while ( my @p = $mainex->fetchrow_array ) {
    my $iis = "$pcount";
    print "$iis\n";
    # ... Do Other Stuff Here
    $pcount++;
}

给出:

Processing Feed
1
2
3
4
5
6
7
8
9
10
...

这不起作用(从第 4 行删除了\n):

print "Processing Feed\n";
while ( my @p = $mainex->fetchrow_array ) {
    my $iis = "$pcount";
    print "$iis";
    # ... Do Other Stuff Here
    $pcount++;
}

这只是给出:

 Processing Feed

我正在尝试构建一个计数器来输出它使用的记录数，例如:

while( Something ){
    print "\b\b\b\b\b\b\b\b\b\b\b";
    print "$count";
    $count++;
    # Do stuff here
}

为什么在第二个示例中没有\n 时没有任何内容打印到屏幕？我以前做过很多次，但无法弄清楚为什么它不起作用。

Answer 1

打印末尾的换行符触发标准输出刷新，打印到屏幕上。如果您将 $|++ 添加到 perl 脚本的顶部，它将打开标准输出的自动刷新，您将看到您的数字。