Nhận thời gian tính bằng mili giây mà không cần cài đặt thêm gói?

Question

Làm cách nào tôi có thể nhận được thời gian tính bằng mili giây trong Perl mà không cần cài đặt thêm bất kỳ gói nào?

Tôi đang chạy Linux.

Answer 1

Time::HiRes là một phần cốt lõi kể từ Perl 5.7.3. Để kiểm tra tính sẵn có của nó, hãy kiểm tra phiên bản Perl, perl -v hoặc cố gắng sử dụng nó với perl -e 'use Time::HiRes;', cả hai từ dòng lệnh.

sử dụng mẫu:

use Time::HiRes qw/ time sleep /; 

my $start = time; 
sleep rand(10)/3; 
my $end = time; 

print 'Slept for ', ($end - $start) , "\n"; 

Để xây dựng trên bình luận Konerak, nếu nó không phải là có hay không có thể được sử dụng, sử dụng có nguồn gốc Linux lệnh qua backticks:

sub time_since_epoch { return `date +%s.%N` } 

print time_since_epoch;