Foro - Perl en Español

por **danimera** » 2012-09-27 10:37 @484

Tengo este código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $sq = "
    SELECT
        usuario, contador_emails, adquisicion,
        nombres, email, tipo, telefonos, activo, numero_campana,
        contador_emails, ultimo_envio, sospechoso, ultimo_envio_form,
        estado
    FROM interesado_temp
    WHERE
        email ='" . $emails . "'";
 
$interesado = $dbh->selectrow_hashref( $sq )
    or die "Error Al buscar interesado por email " . $sq . $dbh->errstr();
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

y esa vuelta, me retorna el siguiente error:

Sintáxis: [ Descargar ] [ Ocultar ]

<center><img src='http://kreatibox.com/images/logo.png'><br><br><br>
<div style=' width:80%; height:90px; background-color:#FFF;border-style:solid;border-size:1px; border-color:#FF0000'><br><b>La aplicacion tiene error:</b><br> Error al buscar interesado por email
SELECT
usuario, contador_emails, adquisicion,
nombres, email, tipo, telefonos, activo, numero_campana,
contador_emails, ultimo_envio, sospechoso, ultimo_envio_form,
estado
FROM interesado_temp
WHERE
email ='[email protected]' at /usr/lib/perl5/5.8.8/CGI/Carp.pm line 314.
</div></center>

No veo qué podría ser.

Como eso hace parte de un ciclo puse algo así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $sq = "
    SELECT
        usuario, contador_emails, adquisicion,
        nombres, email, tipo, telefonos, activo, numero_campana,
        contador_emails, ultimo_envio, sospechoso, ultimo_envio_form,
        estado
    FROM interesado_temp
    WHERE
        email ='" . $emails . "'";
 
$interesado = $dbh->selectrow_hashref($sq);
#    or die "Error al buscar interesado por email ".$sq.$dbh->errstr() ;
 
if ( $emails eq '[email protected]' ) {
    die $sq . Dumper $interesado;
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

y el resultado ahora es:

Sintáxis: [ Descargar ] [ Ocultar ]

<center><img src='http://kreatibox.com/images/logo.png'><br><br><br>
<div style=' width:80%; height:90px; background-color:#FFF;border-style:solid;border-size:1px; border-color:#FF0000'><br><b>La aplicacion tiene error:</b><br>
SELECT
usuario, contador_emails, adquisicion,
nombres, email, tipo, telefonos, activo, numero_campana,
contador_emails, ultimo_envio, sospechoso, ultimo_envio_form,
estado
FROM interesado_temp
WHERE
email ='[email protected]'$VAR1 = undef;
</div></center>

[Si no quieres que el foro le ponga marcas especiales a las direcciones de correo electrónico ni a los enlaces URL, solo tienes que marcar la casilla "No convertir automáticamente las URLs", que está justo debajo de la caja de edición.]

La documentación de DBI dice que si selectrow_hashref devuelve 'undef', es que se ha producido un error en alguna de las fases "prepare", "execute" y "fetchrow_hashref".

Si tuvieras activado la opción "RaiseError", entonces DBI pararía el programa, sacando el mensaje de error.

Otra simplificación (fíjate en la última línea):

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $sq = "
   SELECT
       usuario, contador_emails, adquisicion,
       nombres, email, tipo, telefonos, activo, numero_campana,
       contador_emails, ultimo_envio, sospechoso, ultimo_envio_form,
       estado
   FROM interesado_temp
   WHERE
       email ='$emails'";
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **danimera** » 2012-10-01 11:03 @502

No entiendo por qué me dan problemas consultas tan simples como:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

    my $cliente = $dbh->selectrow_hashref("SELECT id,id_interesado,nombre,apellidos,email FROM cliente WHERE id_interesado = $idInt ") or die "Error en busqueda cliente ". $dbh->errstr();
 
    if ($cliente){
        my $alerta = $dbh->selectrow_hashref("SELECT * FROM alerta WHERE id_cliente = ".$cliente->{id}." AND operacion = '".$operacion."'");
        if ($alerta){
                return 1;
        }
    }
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Si pongo un id_interesado que no tenga la consulta obtengo "Error en búsqueda cliente " pero el $dbh->errstr(); no muestra nada...

Lo raro es que insisto en que el hecho de que no exista no debería haber error, y si hay algún error pues debería mostrármelo en pantalla.

por **explorer** » 2012-10-01 12:13 @550

Esto es lo que pasa cuando usar selectrow_hashref(): como es la combinación de prepare(), execute() y fetchrow_hashref(), si alguna de las tres falla, el resultado será undef.

En cambio, si todo va bien, devolverá una referencia a un hash.

Pero... ¿cómo distinguimos de un error de la consulta (no encontramos a nadie), de un error por la consulta (algo falló al hacer la consulta)?

Podríamos consultar el valor de err() para saber si ocurrió un error:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $cliente = $dbh->selectrow_hashref("
    SELECT id,id_interesado,nombre,apellidos,email
    FROM   cliente
    WHERE  id_interesado = $idInt
");
 
if (defined $dbh->err) {
    die "Error en busqueda cliente ". $dbh->errstr();
}
 
if (0 == keys %$cliente) {
    say "No encontré ningún cliente";
}
else {
    my $alerta = $dbh->selectrow_hashref("
        SELECT *
        FROM   alerta
        WHERE  id_cliente = $cliente->{id}
           AND operacion  = '$operacion'
    ");
 
    if ($alerta){
        return 1;
    }
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

De todas maneras, como dice el manual, con algunos controladores de bases de datos, en algunas ocasiones devuelven un código de error que no es un error, sino simplemente un aviso, o información adicional, por lo que hay que consultar mejor el valor de retorno de err().

por **danimera** » 2012-10-01 12:17 @553

Ok... entonces no podré colocar

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$interesado = $dbh->selectrow_hashref( $sq )
 
    or die "Error Al buscar interesado por email " . $sq . $dbh->errstr();
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por que si uso: or die entonces mi aplicación muere. Hummm, Ok.

Inclusive cuando uso la combinación de los 3, el error está al hacer el fetchrow(), pero solo cuando el resultado de la consulta sea 0.

por **explorer** » 2012-10-01 12:36 @567

Si quieres que la aplicación muera a causa de un fallo por la consulta, podrías hacer lo siguiente: activas la opción 'RaiseError' en el connect(), y luego metes el select_... o el fetch... dentro de un eval{}.

De esa manera, la consulta, si ocurre un error grave, lanzará un die(), pero el programa no morirá al estar dentro de un eval{}. Fuera del eval{} miras el valor de $@ para saber si ocurrió algo, y actúas en consecuencia (reintentar, morir, avisar al usuario, etc.).

Si solo quieres que el programa muera cuando ocurra un fallo grave al hacer la consulta, te vale con activar la opción 'RaiseError' en el connect().

Si solo quieres saber si la consulta devolvió o no clientes, pues entonces debes mirar el contenido del hash referenciado (aunque antes no estará demás que también contemples el caso de que sea un undef, ya que la consulta podría devolver ese valor sin que ocurriese un fallo grave del motor de base de datos).

por **danimera** » 2012-10-01 14:08 @630

A eso me refería: que si no hay ningún dato no me genere error, pero ya lo tengo.
El problema es colocar un die() al fetchrow().

En todo caso, gracias, ya me quedó más claro cómo funciona

Foro - Perl en Español

Posible error en consulta

Posible error en consulta

Publicidad

Re: Posible error en consulta

Re: Posible error en consulta

Re: Posible error en consulta

Re: Posible error en consulta

Re: Posible error en consulta

Re: Posible error en consulta

¿Quién está conectado?