如何在Perl中暂停程序执行一秒钟？

Question

有人能告诉我一个如何在Perl中停顿一秒的例子吗？我正在尝试睡眠命令但它无法正常工作。

Answer 1

#!/usr/bin/perl

use strict;
use warnings;
use diagnostics;

$| = 1; # Disable output buffering

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

Answer 2

sleep(1)就是这样做的。如果它“不工作”那么你正在测量不正确的东西。 （那或者你没有传递正确的论据 - 告诉我们你的代码会有所帮助。）

$ time perl -e 'sleep(1)'

real    0m1.003s
user    0m0.000s
sys     0m0.004s

Answer 3

为什么你们，这显然不是那种方式。

select undef, undef, undef, 1;

Answer 4

这是直接的答案，我提供以防止提问者的原始代码出现问题。

#!/usr/bin/perl
 print "Hello World.\n";
 sleep 1;