Làm cách nào để tôi ngủ được một phần nghìn giây trong Perl?

Question

Làm cách nào để ngủ ngắn hơn một giây trong Perl?

Answer 1

Từ trang perldoc trên sleep:

Đối với sự chậm trễ của granularity mịn hơn một giây, module Time::HiRes (từ CPAN, và bắt đầu từ Perl 5,8 phần của phân phối chuẩn) cung cấp usleep().

Thực ra, nó cung cấp usleep() (trong đó ngủ bằng micro giây) và nanosleep() (ngủ trong nano giây). Bạn có thể muốn usleep(), điều này sẽ cho phép bạn xử lý các con số dễ dàng hơn. 1 mili giây giấc ngủ (sử dụng mỗi):

use strict; 
use warnings; 

use Time::HiRes qw(usleep nanosleep); 

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

Nếu bạn không muốn (hoặc không thể) tải một mô-đun để làm điều này, bạn có thể cũng có thể sử dụng được xây dựng trong select() chức năng:

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

Answer 2

Time :: thuê:

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

Sử dụng Time::HiRes.

Answer 4

Googling nhanh trên "bộ hẹn giờ có độ phân giải cao perl" đã tham chiếu đến Time::HiRes. Có thể đó là những gì bạn muốn.

Answer 5

Từ perlfaq8:

---

Làm thế nào tôi có thể ngủ() hoặc báo động() với giá dưới một giây?

Nếu bạn muốn độ chi tiết mịn hơn 1 giây mà hàm sleep() cung cấp, cách dễ nhất là sử dụng hàm select() như được ghi trong lựa chọn trong perlfunc. Hãy thử Time :: HiRes và BSD :: Mô-đun Itimer (có sẵn từ CPAN, và bắt đầu từ thời gian Perl 5.8 :: HiRes là một phần của bản phân phối chuẩn).

Answer 6

system "sleep 0.1"; 

thực hiện thủ thuật.