Foro - Perl en Español

por **lr_emilio** » 2013-09-19 11:48 @533

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!

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

eval {

local $SIG{ALRM} = sub { die "TIMEOUT\n" }; # "\n" es requerido

eval {

alarm($segundos);

# ... código a ejecutar que sospechamos que puede alargarse en el tiempo...

};

# el eval exterior captura la alarma que podría dispararse justo antes de este alarm(0)

alarm(0); # cancela la alarma (si el código se ejecutó a su tiempo)

die "$@" if $@; # si hubo algún error, lanzamos un die() para que sea capturado por eval exterior

};

if ( $@ eq "TIMEOUT\n" ) {

...;

} # si el mensaje de error es el que pusimos arriba, es que se pasó de tiempo

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.

por **lr_emilio** » 2013-09-20 07:05 @337

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.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $dbh = DBI->connect( "dbi:$Driv:$Base", $User, $Pass, { mysql_enable_utf8 => 1 } )
    || die &MensajesErrores( "", "No se pudo Conectar a $base_datos", "", "" );
$dbh->do("SET NAMES 'utf8'");
my $sth1 = $dbh->prepare("SELECT $campos FROM $tabla where ($comparar) ORDER BY $queorden;");
$timeout  = "N";
$segundos = 5;
eval {
    local $SIG{ALRM} = sub { die "TIMEOUT\n" };    # "\n" es requerido
    eval {
        alarm($segundos);
        $sth1->execute();
 
        # ... código a ejecutar que sospechamos que puede alargarse en el tiempo...
    };
 
    # el eval exterior captura la alarma que podría dispararse justo antes de este alarm(0)
    alarm(0);                          # cancela la alarma (si el código se ejecutó a su tiempo)
    die "$@" if $@;                    # si hubo algún error, lanzamos un die() para que sea capturado por eval exterior
};
binmode( STDOUT, ':encoding(UTF-8)' ); # Perl hace una comprobación de que son datos UTF-8, de forma estricta
print "content-type: text/html;charset=UTF-8  \n\n";
print $@;
if ( $@ eq "TIMEOUT\n" ) {             # si el mensaje de error es el que pusimos arriba, es que se pasó de tiempo
    $timeout = "S";
    $sth1->cancel;
}
else {                                 # ¡Ops! Ocurrió otra cosa
    $timeout = "N";
    while ( @Lv = $sth1->fetchrow_array() ) { push( @LiReEn2, @Lv ); }
    $sth1->finish();
    $dbh->disconnect || warn &LeHtm( "Mensajes/mensaje.htm", "", "No se pudo desconectar", "", "" );
    if   ( $resultado != 0 ) { $mens1 = "No se ha podido encontrar"; }
    else                     { $mens1 = ""; }
}
}
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Un saludo

por **explorer** » 2013-09-20 09:07 @422

$@ 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.

Foro - Perl en Español

Detectar timeout de una función

Detectar timeout de una función

Publicidad

Re: Detectar timeout de una función

Re: Detectar timeout de una función

Re: Detectar timeout de una función

¿Quién está conectado?