Hola a todos,
El caso es que necesito implementar un mecanismo de timeout en mi programa: si a los 20 minutos un proceso de generación de informes no ha terminado (puede terminar antes de dichos 20 minutos), pues dicho mecanismo debe activarse y terminar la generación de dicho informe justo en ese momento.
¿Alguien sabe de algún modulo Perl especializado en eso? Sino, ¿alguien podría darme algún ejemplo muy simple o algun link interesante?
Es la primera vez que debo implementar tal mecanismo y estoy un poco "bastante" perdido...
¡¡Muchas gracias!!
Saludos cordiales,
Felipe
-
- Publicidad
Implementación de un timeout en Perl
6 mensajes
• Página 1 de 1
Implementación de un timeout en Perl
por fgalves » 2007-04-02 01:44 @114
- fgalves
- Perlero nuevo
- Mensajes: 210
- Registrado: 2006-09-25 13:54 @621
Publicidad
por explorer » 2007-04-02 02:55 @163
Respondida en la perlfaq8:
http://perldoc.perl.org/perlfaq8.html#H ... w-event%3F
http://perldoc.perl.org/perlfaq8.html#H ... w-event%3F
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14486
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
por fgalves » 2007-04-02 09:39 @443
Hola de nuevo,
Explorer, he mirado un poco la pagina que me has indicado y me ha quedado claro que el mecanismo clasico consiste en usar la funcion "alarm(segundos)", y asociar un evento a dicho "signal".
En mi caso concreto, me encuentro dentro de un bucle en el cual proceso ficheros que se encuentran en un directorio:
Lo que deseo hacer es activar al principio un "timer" a 20 minutos y cuando dicho timer llegue a su limite, forzar la salida del bucle.
Lo que mas o menos he intuido que podria usar es lo siguiente:
Habria alguna otra manera de contar el tiempo pero sin pasar por la funcion "alarm()"?
Muchas gracias!
Saludos,
Felipe
Explorer, he mirado un poco la pagina que me has indicado y me ha quedado claro que el mecanismo clasico consiste en usar la funcion "alarm(segundos)", y asociar un evento a dicho "signal".
En mi caso concreto, me encuentro dentro de un bucle en el cual proceso ficheros que se encuentran en un directorio:
Using perl Syntax Highlighting
for (my $i=$startIndex+1; $i<=$#files; $i++)
{
# procesa siguiente fichero
}
{
# procesa siguiente fichero
}
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Lo que deseo hacer es activar al principio un "timer" a 20 minutos y cuando dicho timer llegue a su limite, forzar la salida del bucle.
Lo que mas o menos he intuido que podria usar es lo siguiente:
Using perl Syntax Highlighting
Habria alguna otra manera de contar el tiempo pero sin pasar por la funcion "alarm()"?
Muchas gracias!
Saludos,
Felipe
- fgalves
- Perlero nuevo
- Mensajes: 210
- Registrado: 2006-09-25 13:54 @621
por explorer » 2007-04-02 09:54 @454
Otra forma, clásica, es, dentro del bucle, ir viendo en cada vuelta cuánto tiempo ha pasado. Para ello, al principio averiguamos en qué fecha estamos con la ayuda de time(). Luego en cada bucle hacemos la comparación.
Algo así (no probado):
Naturalmente esto funciona si las vueltas del bucle se realizan dentro de la granularidad de un segundo. O dicho de otra manera, la precisión de esta forma de salida depende de la resolución media de cada vuelta. Si en "proceso" tenemos algo que nos ocupa más de un segundo, no podemos garantizar que el bucle salga exactamente a los 20min, sino que puede que tarde un poco más (20min + el tiempo de una vuelta).
Algo así (no probado):
Using perl Syntax Highlighting
my $antes = time();
while ( "bucle muy, muy, muy, pero que muy largo" ) {
last if time() - $antes > 1200; # Salimos si superamos los 20 minutos
# proceso ...
}
while ( "bucle muy, muy, muy, pero que muy largo" ) {
last if time() - $antes > 1200; # Salimos si superamos los 20 minutos
# proceso ...
}
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
Naturalmente esto funciona si las vueltas del bucle se realizan dentro de la granularidad de un segundo. O dicho de otra manera, la precisión de esta forma de salida depende de la resolución media de cada vuelta. Si en "proceso" tenemos algo que nos ocupa más de un segundo, no podemos garantizar que el bucle salga exactamente a los 20min, sino que puede que tarde un poco más (20min + el tiempo de una vuelta).
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14486
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
por fgalves » 2007-04-02 10:18 @470
muchisimas gracias Explorer!!
Creo que me voy a quedar con esta ultima solucion pues se trata de un proceso que puede durar mas de 4 horas (me refiero al bucle del que antes he hablado). Por lo tanto, no resulta para nada critico lo de 20 minutos + tiempo de 1 iteracion.
El problema de usar alarm(), es que me haria salir del bucle en cualquier momento, por ejemplo, mientras estoy procesando un fichero. Con la segunda solucion, puedo controlar mejor el lugar en el que hago la verificacion del timeout y salir del bucle una vez haya procesado completamente un fichero.
Gracias de nuevo y saludos!!
Felipe
Creo que me voy a quedar con esta ultima solucion pues se trata de un proceso que puede durar mas de 4 horas (me refiero al bucle del que antes he hablado). Por lo tanto, no resulta para nada critico lo de 20 minutos + tiempo de 1 iteracion.
El problema de usar alarm(), es que me haria salir del bucle en cualquier momento, por ejemplo, mientras estoy procesando un fichero. Con la segunda solucion, puedo controlar mejor el lugar en el que hago la verificacion del timeout y salir del bucle una vez haya procesado completamente un fichero.
Gracias de nuevo y saludos!!
Felipe
- fgalves
- Perlero nuevo
- Mensajes: 210
- Registrado: 2006-09-25 13:54 @621
6 mensajes
• Página 1 de 1
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados