Foro - Perl en Español

por **angelltroa** » 2010-04-20 18:55 @830

Hola a Todos,

Esta vez tengo una consulta quizás un poco absurda, os comento:

El caso es que estoy haciendo una query a MySQL. Tengo una tabla con 2 campos (ip (vchar),integer). El caso es que quiero ver si una determinada ip se encuentra ya en la base de datos. En el caso de que si se encuentra no hay ningún problema con mi script, pero si no se encuentra imagino que me devuelve esto (Empty set (0,00 sec)) y no sé cómo comprobarlo con una operación condicional o printarlo.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
use DBI;
use ConnectDB;
 
 
my $us="192.168.1.10";
my($dbh,$sth);
$dbh = ConnectDB->connect();
$sth = $dbh->prepare('SELECT ip FROM blacklist WHERE ip = ?') or die("Couldn't prepare statement: " . $dbh->errstr);
$sth->execute($us) or die("Couldn't execute statement: " . $sth->errstr);
my $resultat =  $sth->fetchrow_array();
print "$resultat\n";
$sth->finish;
$dbh->disconnect;
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

He probado de inicializar la variable $resultat para que no fuese el caso de que estaba vacía, y tampoco.

Muchas gracias de antemano.

En contexto escalar, la función fetchrow_array() "puede"(*) devolver el primer campo de la fila de la tabla de resultados de la consulta, o undef si no hay más datos. Se recomienda no usar esta función en contexto escalar, como lo tienes puesto en tu código.

Si la ejecutamos en contexto lista, nos devuelve todos los campos de la fila de la tabla de resultados. En caso de que no haya más datos o exista un error, la función devuelve una lista vacía.

Un uso normal sería así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

while(@fila=$sth->fetchrow_array){
print"@fila\n";
}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

En este caso, como sabemos que nos interesa saber la existencia o no de un campo, nos vale con hacer una consulta y ver el resultado del primer campo de la primera fila (no probado):

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my@fila=$sth->fetchrow_array();
if($fila[0]){
# Sí que hemos encontrado una IP
}
else{
...
}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

(*): depende del controlador de la base de datos.

por **angelltroa** » 2010-04-21 11:01 @501

Parece sí que funciona de esta forma, pero tengo un error que se me escapa, realmente lo que quiero es hacer un update de un campo,

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub is_in{
        my $us="192.168.1.10";
        my($dbh,$sth);
        $dbh = ConnectDB->connect();
        $sth = $dbh->prepare('UPDATE blacklist SET attemps = 1 WHERE ip = ?') or die("Couldn't prepare statement: " . $dbh->errstr);
        $sth->execute($us) or die("Couldn't execute statement: " . $sth->errstr);
        my $resultat$sth->fetchrow_array();
        if ($resultat){
                #incrementar intento
                print "DONE\n";
        }
        else{
                #registrar entrada
                print "no resultat\n";
        }
        $sth->finish;
        $dbh->disconnect;
}
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

El problema lo tengo en esta línea: my $resultat$sth->fetchrow_array(); me da el siguiente error al ejecutarlo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Uncaught exception from user code:

        DBD::mysql::st fetchrow_array failed: fetch() without execute() at ./exemple-query-real.pl line 21.

 at ./exemple-query-real.pl line 21
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Me he asegurado de no tener problemas de permisos y he probado el UPDATE en la BBDD manualmente y funciona. ¿Qué puede estar pasando?

¡ Gracias a todos !

por **explorer** » 2010-04-21 12:16 @553

Falta un '=', creo.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $resultat = $sth->fetchrow_array();
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Por otra parte, no tiene sentido hacer un fetchrow si solo quieres hacer un update (salvo que me equivoque). Con un execute(), sería suficiente.

Foro - Perl en Español

Consulta Base de datos

Consulta Base de datos

Publicidad

Re: Consulta Base de datos

Re: Consulta Base de datos

Re: Consulta Base de datos

¿Quién está conectado?