Foro - Perl en Español

Hola. ¿Cómo están? Estoy con un pequeñísimo problema. Es la maldita función microtime() de PHP que quiero hacerlo en Perl.

Según la descripción dice que "devuelve la marca de tiempo Unix actual con micro-segundos".

En otras palabras esto genera así siendo la columna izquierda los segundos corridos.

Código: Seleccionar todo

0.34375100 1229296403
0.54687700 1229296416
.
.
.
etc.

No tuve mucha suerte con Google pero me encontré con algo de Time::HiRes.

El problema es que aún no sé cómo hacerlo en Perl.

Saludos y Gracias.

La función gettimeofday() de ese módulo devuelve, en contexto de lista, los segundos y los microsegundos, desde el epoch.


Ejemplo:

Código: Seleccionar todo

explorer@portatil:~> perl -le 'use Time::HiRes qw(gettimeofday); print join " ",gettimeofday()'
1229304594 86414
explorer@portatil:~> perl -le 'use Time::HiRes qw(gettimeofday); print join " ",gettimeofday()'
1229304594 446308
explorer@portatil:~> perl -le 'use Time::HiRes qw(gettimeofday); print join " ",gettimeofday()'
1229304594 777944
explorer@portatil:~> perl -le 'use Time::HiRes qw(gettimeofday); print join " ",gettimeofday()'
1229304595 131751

... Muchas gracias. Con eso resuelvo mi problema.

Saludos.