Ottieni il tempo in millisecondi senza installare un pacchetto aggiuntivo?

Question

Come posso ottenere il tempo in millisecondi in Perl senza installare alcun pacchetto aggiuntivo?

Sto utilizzando Linux.

Answer 1

Time::HiRes fa parte del core da Perl 5.7.3. Per verificare la sua disponibilità, controllare la versione Perl, perl -v, o provare a usarlo con perl -e 'use Time::HiRes;', entrambi dalla riga di comando.

utilizzo Esempio:

use Time::HiRes qw/ time sleep /; 

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

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

Per costruire il commento di Konerak, se non c'è o non può essere utilizzato, utilizzare nativo Linux comanda tramite apici inversi:

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

print time_since_epoch;