Obtenga tiempo en milisegundos sin instalar un paquete adicional?

Question

¿Cómo puedo obtener el tiempo en milisegundos en Perl sin instalar ningún paquete adicional?

Estoy ejecutando Linux.

Answer 1

Time::HiRes ha sido parte del núcleo desde Perl 5.7.3. Para verificar su disponibilidad, verifique la versión de Perl, perl -v, o intente usarla con perl -e 'use Time::HiRes;', ambos desde la línea de comando.

Ejemplo de uso:

use Time::HiRes qw/ time sleep /; 

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

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

Para construir sobre el comentario de Konerak, si no está allí o no puede ser utilizado, uso nativo de Linux comandos a través de acentos abiertos:

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

print time_since_epoch;