Foro - Perl en Español

Hola, tengo un problema con Apache debido al timeout de una función.

Me explico: tengo una consulta por Ajax que ejecuta una función hecha en Perl. El problema es que dependiendo de los filtros que se utilicen (más o menos filtros) para una búsqueda en una base de datos puede llegar el caso de que se me produzca un timeout con el consiguiente error.

¿Existe alguna manera de detectar ese timeout para mostrar una alerta de... "especifique un poco más la búsqueda"?

Muchas gracias.

¡Un saludo!

Esto está respondido en una de las preguntas de perlfaq8, que dirige la cuestión hacia la sección Signals del documento perlipc, pero recomienda el uso del módulo Sys::AlarmCall.

Del manual de DBI:

Los dos usos más comunes de las señales, en relación a DBI, son para cancelar las operaciones cuando el usuario pulse Ctrl-C (Interrupción), y para implementar un timeout usando "alarm()" y $SIG{ALRM}.

[...]

La forma tradicional de implementar un timeout es darle a $SIG{ALRM} una referencia a algún código que se ejecute cuando llegue una señal ALRM, y luego llamar a alarm($segundos) para que se genere una futura señal ALRM en el número indicado de segundos. Por ejemplo:

Sintáxis: [ Descargar ] [ Ocultar ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using perl Syntax Highlighting

1.             eval {
2.                 local $SIG{ALRM} = sub { die "TIMEOUT\n" };    # "\n" es requerido
3.                 eval {
4.                     alarm($segundos);
5.  
6.                     # ... código a ejecutar que sospechamos que puede alargarse en el tiempo...
7.                 };
8.  
9.                 # el eval exterior captura la alarma que podría dispararse justo antes de este alarm(0)
10.                 alarm(0);              # cancela la alarma (si el código se ejecutó a su tiempo)
11.                 die "$@" if $@;        # si hubo algún error, lanzamos un die() para que sea capturado por eval exterior
12.             };
13.             if ( $@ eq "TIMEOUT\n" ) {
14.                 ...;
15.             }                          # si el mensaje de error es el que pusimos arriba, es que se pasó de tiempo
16.             elsif ($@) {...}           # ¡Ops! Ocurrió otra cosa

Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4

El manual sigue con una explicación de por qué se usan dos eval anidados. Luego pone otro ejemplo más, pero recomiendo el uso del módulo Sys::SigAction.

También existe el módulo Time::Out, con una sintaxis mucho más sencilla.

De todos los módulos indicados, el que tiene el manual más completo, y una versión publicada más moderna, es Sys::SigAction.

Hola, me surgen un par de dudas con el código...

¿Qué es $@?

Lo he intentado incrustar en mi búsqueda pero $@ siempre está vacío. El tiempo lo he puesto en 5 segundos para que me haga timeout, pero algo se me escapa.




Un saludo

$@ contiene el mensaje de error de la última operación realizada. Está explicada en la sección Error Variables de perlvar.

Quizás no te funciona porque estás ejecutando un binmode() y dos print() antes de preguntar por el contenido de la variable. Debes hacerlo inmediatamente.

Te aconsejo que pongas el binmode() una sola vez en el programa, lo más alto posible.