当我使用sleep时,为什么不在循环的每次迭代中打印输出？

Question

今天在我的大学里,老师问我一个问题.他在论文中写了这段代码并说"这段代码的输出是什么？"

use warnings;

for (1 .. 20)
{
    print ".";
}

我发现它很容易并且说它将循环20次并且在每次迭代时它将打印一个点(.)因此总共20个点将是输出.

他说你是对的,然后他对代码做了一些改动.代码是:

use warnings;

for (1 .. 20)
{
    print ".";
    sleep 1;
}

他说现在的产量是多少？我不知道睡眠功能,我猜想在每次迭代时它会打印点(.)然后它会等待1秒(因为睡眠功能)然后它会再次迭代然后它会再次打印(.)然后它将等待1秒,依此类推......

老师叫我在家里检查一下.我在家尝试了,我发现第二个代码等了20秒,然后一次打印所有点(20个点).我想知道这是怎么发生的？为什么点(.)在每次迭代时都没有打印？

Answer 1

真正的问题与此无关sleep,而是............

你正在遭受缓冲.所提供的链接将带您阅读大约1998年由Perc Journal撰写的优秀文章,来自Marc Jason Dominus(高阶Perl的作者).这篇文章可能已有十多年的历史了,但今天的主题和他写这篇文章的时候一样重要.

其他人解释了这项$| = 1;技术.我想补充一点,在Perl社区的主流思想中似乎$| = 1更可取的$|++仅仅是因为它的含义更清晰.我知道,自动增量是相当简单了,但是确实大家谁永远不会看你的代码知道$|的行为时,++或--应用(没有寻找它perlvar).我碰巧也喜欢本地化Perl的"特殊变量"的任何修改,以便效果不会冲到代码的其他部分,这些部分可能对默认的Perl行为的特定更改不起作用.既然如此,我会把它写成:

use strict;
use warnings;

{
    local $| = 1;
    for ( 1 .. 20 ) {
        print '.';
        sleep 1;
    }
}

Answer 2

Perl和许多其他程序,默认情况下是行缓冲输出.如果需要无缓冲输出,可以设置$|为1.

Answer 3

它没有清除缓冲区.如果print语句末尾有换行符,它将自动为您执行此操作:

use warnings;

for (1 .. 20) {
    print ".\n";
    sleep 1;
}

如果你不想要换行符(我不认为你这样做),你可以使用特殊的autoflush变量$|.尝试将其设置为1或递增.

use warnings;

$|++;

for (1 .. 20) {
     print ".";
     sleep 1;
}