Как я могу приостановить выполнение программы на одну секунду в 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;