Foro - Perl en Español

por **xigr** » 2006-03-08 10:25 @475

Hola a todos de nuevo.

Estaba buscando y no encuentro (supongo que no habré sabido buscar bien) alguna función para poder cronometrar el tiempo que estoy en cada telnet que hago para después mostrar un total.

¿Existe algo así? En algunas ocasiones me sería muy útil para poder hacer estimaciones de tiempo al lanzar configuraciones de forma masiva.

Gracias,
iñaki

Antes lo digo... que antes lo encuentro ¬¬ si es que.... A ver si me apaño.

viewtopic.php?t=566&highlight=cronometrar

pero comenta algo de un módulo. Una vez quise poner varios y no me funcionaban las variables :s ¿Es posible que al poner dos diferentes sean incompatibles? Siempre uso los de Net::Telnet

¡Gracias!

por **explorer** » 2006-03-08 12:47 @574

En el fichero /var/log/lastlog suele quedar registrado los tiempos de conexión.

Podría ser una pista...

por **macgregor** » 2006-03-09 07:24 @350

viewtopic.php?t=500

Este enlace es un enlace hacia la sección de módulos de este foro.

En el ejemplo aparece cómo utilizar el cronómetro del módulo que hice.

Solo hay que importar el módulo que su usa sin instalar y jugar con las instrucciones iniciar, parar y mostrar.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$crono=Nuevo Cronometro; 
$crono->Iniciar(); 
$crono->Parar(); 
$crono->Mostrar();
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Échale un vistazo, igual te gusta

Puedes definirte tantos cronómetros como quieras y usarlos en cualquier parte de tu código.

Un saludo.

por **kidd** » 2006-03-09 10:43 @488

Hola.

También te podría recomendar que uses el módulo Time::HiRes, me gusta especialmente pues te permite cronometrar hasta milisegundos.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use Time::HiRes qw( usleep ualarm gettimeofday tv_interval );
 
my $t0 = [gettimeofday];
 
for my $i ( 1 .. 1000000 ) {
    $i = $i / 2 * 4;
}
 
my ( $seconds, $microseconds ) = gettimeofday;
my $elapsed = tv_interval( $t0, [ $seconds, $microseconds ] );
 
my $segundos = sprintf( "%.2f", $elapsed );
 
print "Las operaciones incoherentes tomaron $segundos segundos en ejecutarse\n";
 
exit(1);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Resultado:
Las operaciones incoherentes tomaron 0.83 segundos en ejecutarse

SALUDOS

por **xigr** » 2006-03-10 09:34 @440

¡Gracias! Ahora mismito me pongo a hacer pruebas

Muchas gracias

Foro - Perl en Español

Cronometrar el tiempo de una operación

Cronometrar el tiempo de una operación

Publicidad

Re: Cronometrar el tiempo de una operación

¿Quién está conectado?