Аналог getmicrotime в perl?

152

10 ноября 2019, 18:30

В php есть такая функция как microtime. Также его доп. реализация как getmicrotime(); В perl я нашёл только times, и то он всегда выдаёт 4 нуля.

function getmicrotime() 
{ 
   list($usec, $sec) = explode(" ", microtime()); 
   return ((float)$usec + (float)$sec); 
}

Answer 1

gettimeofday()

В контексте массива возвращает двухэлементный массив с секундами и микросекундами с начала эпохи. В скалярном контексте возвращает секунды (с плавающей точкой) как Time::HiRes::time()

tv_interval ( $ref_to_gettimeofday [, $ref_to_later_gettimeofday] )

Возвращает секунды секунды (с плавающей точкой) между двумя значениями, которые должны были быть возвращены gettimeofday (). Если второй аргумент опущен, используется текущее время. документация

use Time::HiRes qw(gettimeofday tv_interval);
my $startTime = [ gettimeofday ];
# some actions
my $endTime = [ gettimeofday ];
my $elapsed = tv_interval($startTime,$endTime);
print "TIME: $elapsed\n";