如何在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