Как спать за миллисекунду в Perl?

Question

Как спать на Perl менее чем на секунду?

Answer 1

На странице Perldoc на sleep:

Для задержки тонкой детализации, чем одну секунду, модуль Time::HiRes (от CPAN, и, начиная с Perl 5.8 частью стандартного распределения) обеспечивает USleep().

На самом деле, это обеспечивает usleep() (который спит в микросекундах) и nanosleep() (который спит в наносекундах). Вы можете захотеть usleep(), что должно позволить вам иметь дело с более удобными номерами. 1 миллисекунды сна (используя каждый):

use strict; 
use warnings; 

use Time::HiRes qw(usleep nanosleep); 

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

Если вы не хотите (или не можете) загрузить модуль, чтобы сделать это, вы можете также быть в состоянии использовать встроенный в select() функции:

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

Answer 2

Время :: HiRes:

use Time::HiRes; 
    Time::HiRes::sleep(0.1); #.1 seconds 
    Time::HiRes::usleep(1); # 1 microsecond. 

http://perldoc.perl.org/Time/HiRes.html

Answer 3

Использование Time::HiRes.

Answer 4

Быстрый поиск по страницам "perl high resolution timers" дал ссылку на Time::HiRes. Может быть, это то, что вы хотите.

Answer 5

От perlfaq8:

---

Как я могу спать() или тревоги() для под вторым?

Если вы хотите более тонкую детализацию, чем 1 секунду, что обеспечивает функция sleep(), самый простой способ - использовать функцию select(), как описано в select perlfunc. Попробуйте модули Time :: HiRes и BSD :: Itimer (доступные из CPAN и начиная с Perl 5.8 Time :: HiRes является частью стандартного дистрибутива).

Answer 6

system "sleep 0.1"; 

делает трюк.