Foro - Perl en Español

Publicado: **2009-09-30 14:59 @666**

Necesito saber cómo leo por medio de un foreach() los datos que obtengo de la consulta...

Tengo problemas al hacerlo por medio de

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my$sth=$self->dbh->prepare("SELECT id_localizacion, longitud, latitud, descripcion, tipo, propiedad, imagen FROM localizaciones WHERE tipo = ? AND propiedad = ?")
ordie("Couldn't prepare statement: ".$self->dbh->errstr);

$sth->execute($datos->param('tipo'),$datos->param('propiedad'))ordie("Couldn't execute statement: ".$sth->errstr);
my$puntos=$sth->fetchall_hashref('id_localizacion');
#my  $puntos  = $sth->fetchall_arrayref();
my$puntos2=$sth->fetchall_arrayref;


$sth->finish;
$self->dbh->disconnect;

#return $t->{longitud};
#return "<pre>".Dumper($puntos);
#return Dumper($t->{longitud});

#return Dumper($puntos->{38}->{longitud});

if($puntos){

#foreach my $punto (keys %puntos){
foreachmy$punto(%$puntos){

$map->add_marker(

                noformat =>"1",

                point =>[$punto->{longitud},$punto->{latitud}],

                html  =>"<img width=120 height=100 src='../clientes/uploads/$punto->{imagen}'><br><div style='width:120px;'>$punto->{descripcion} </div>",

                icon =>"$punto->{propiedad}"
);
}
}Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

En el último foreach() es que tengo el problema. Decir $punto->{'imagen'} no sirve de nada.

Publicado: **2009-09-30 15:35 @691**

Sería hacer un recorrido por todas las claves del hash devuelto...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

formy$id_localizacion(keys%$puntos){
print$puntos->{$id_localizacion}->{imagen},"\n";
}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Es decir... fetchall_hashref() devuelve todo el resultado de la consulta, indexado por el campo indicado (en este caso, id_localizacion).

Luego, entonces, debemos recorrer ese hash como recorremos cualquier otro hash. Y dentro de cada valor, es otra referencia a otro hash, que tiene el resto de los campos de cada registro.

Publicado: **2009-09-30 15:43 @697**

Claro, ahí estaba la clave: no había tenido en cuenta que tenía que llamar el id al hash real... Gracias...

Foro - Perl en Español

Desplegar los datos obtenidos de un fetchall_hashref()

Desplegar los datos obtenidos de un fetchall_hashref()

Re: Desplegar los datos obtenidos de un fetchall_hashref()

Re: Desplegar los datos obtenidos de un fetchall_hashref()