Nasıl Perl ile bir saniyeden daha kısa bir uyku?

sleep sayfa: Perldoc

Bir saniye daha ince ayrıntı gecikmeler için Time::HiRes modülü (CPAN ve Perl 5.8 itibaren standart paketinin bir parçası) usleep sağlar().

Aslında, usleep() mikrosaniye uyur () ve nanosleep() nanosaniye içinde yatar () sağlar. Daha kolay sayılar uğraşsın gereken usleep(), isteyebilirsiniz. 1 milisaniye uyku (her kullanarak):

use strict;
use warnings;

use Time::HiRes qw(usleep nanosleep);

# 1 millisecond == 1000 microseconds
usleep(1000);
# 1 microsecond == 1000 nanoseconds
nanosleep(1000000);

Eğer varsa ... (veya yok) bir modül bunu yapmak için yük, aynı zamanda yerleşik select() Bu fonksiyonu kullanmak mümkün olabilir:

# Sleep for 250 milliseconds
select(undef, undef, undef, 0.25);