Foro - Perl en Español

Buenas tardes,

estoy intentando realizar una consulta a una base de datos utilizando el módulo Net::MySQL, pero cuando realizo una consulta intentando filtrar los resultados con WHERE, el programa se queda bloqueado, como si estuviera pensando. En cambio si la consulta la hago sin WHERE, todo funciona bien.

Mi programa es el siguiente:

#!/usr/bin/perl -w

use Net::MySQL;
use strict;

my $mysql = Net::MySQL->new(
hostname => 'localhost', # Default use UNIX socket
database => 'XXXX',
user => 'XXXX',
password => 'XXXX'
);

my $record;
my $record_set;

$mysql->query(q{SELECT ip_wan FROM conf_farm WHERE id_gateway_cf='1.1.1.1'});

if ($mysql->has_selected_record) {
$record_set = $mysql->create_record_iterator;

while (my $record = $record_set->each)
{
printf "First column: %s\n",$record->[0];
}
}


¿Alguien tiene alguna idea que me pueda ayudar? Muchas gracias.

Este módulo está sin actualizar desde año 2006.

¿No será posible que el módulo está intentando enviar un comando a la base de datos, y ésta no lo entiende porque la base de datos es mucho más moderna?

Prueba a poner 'WHERE 1=1', y si se sigue atascando, es que, o bien pasa eso, o tu base de datos es gigantesca.

Yo mandaría un correo al autor, a ver qué me responde. Y de paso, me miraría los módulos DBI / DBD::mysql.

Gracias por la información, así lo haré.