 Mie Mar 08, 2006 9:25 am
|
 |
xigr
Perlero Nuevo
|
Registrado: 03 Feb 2006
Mensajes: 42
|
|
| Cronometrar el tiempo de una operación |
 |
|
hola a todos de nuevo,
estaba buscando y no encuentro (supongo que no habré sabido buscar bien) alguna funció 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 |
|
|
|
|
Mie Mar 08, 2006 9:27 am
|
|
xigr
Perlero Nuevo
|
Registrado: 03 Feb 2006
Mensajes: 42
|
|
|
|
|
Mie Mar 08, 2006 11:47 am
|
|
explorer
Moderador
|
Registrado: 24 Jul 2005
Mensajes: 4123
Ubicación: Valladolid, España
|
|
|
|
|
En el fichero /var/log/lastlog suele quedar registrado los tiempos de conexión.
Podría ser una pista... |
|
|
Jue Mar 09, 2006 6:24 am
|
|
macgregor
Perlero Frecuente
|
Registrado: 09 Dic 2004
Mensajes: 117
Ubicación: españa
|
|
| cronometro |
|
|
http://perlenespanol.baboonsoftware.com/foro/viewtopic.php?t=500
este link es un enlace hacia la seccion de modulos de este foro.
En el ejemplo aparece como utilizar el cronometro del modulo que hice.
solo hay que importar el modulo que su usa sin instalar y jugar con las instrucciones iniciar, parar y mostrar.
| Código: |
$crono=Nuevo Cronometro;
$crono->Iniciar();
$crono->Parar();
$crono->Mostrar(); |
hechale un vistazo, igual te gusta 
Puedes definirte tantos cronometros como quieras y usarlos en cualquier parte de tu codigo.
Un saludo. |
|
|
Jue Mar 09, 2006 9:43 am
|
|
kidd
Creador de Perl en Español
|
Registrado: 15 Oct 2003
Mensajes: 1389
Ubicación: México
|
|
|
|
|
Hola:
También te podría recomendar que uses el módulo Time::HiRes, me gusta especialmente pues te permite cronometrar hasta milisegundos.
| Código: |
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);
|
Resultado:
Las operaciones incoherentes tomaron 0.83 segundos en ejecutarse
SALUDOS |
|
|
Vie Mar 10, 2006 8:34 am
|
|
xigr
Perlero Nuevo
|
Registrado: 03 Feb 2006
Mensajes: 42
|
|
|
|
|
 !! gracias! ahora mismito me pongo ha hacer provatinas 
mucgas gracias |
|
Powered by phpBB © 2001, 2005 phpBB Group
|
