Foro - Perl en Español

Resulta que no tengo el dato que espero...

Traigo los registros de una base de datos, y quiero en una sola línea crearle un campo a cada registro con los datos del creador del registro de otra tabla, eso por medio de un ORM:



mi línea map es así:



también hice esto para ver:



y efectivamente se crea la variable {'creador_1'}.

Pero $usuario->retrieve( $_->{'created_by'} ) es donde está el problema: siempre me toma el valor 3, y digamos en mi ejemplo el creador es el 1, pero no me trae los datos del 1, si no los datos de quien lo está editando cuyo id es 3.

Un dumper me muestra algo como esto:


pero lo que yo espero es:


No sé si el problema está en $usuario->retrieve( $_->{'created_by'} ), pero ese método funciona bien solo si la cargo así:

my $usuario = MyApp::Db::User->new($dbh);

y el método retrieve() devuelve la consulta de la tabla de usuarios con los datos.

No me gusta nada esto: %{$_} ¿qué contiene $_ en ese momento? Según el código, es cada uno de los elementos de @$contents, pero, ¿qué tipo de dato es?

explorer escribiste:No me gusta nada esto: %{$_} ¿qué contiene $_ en ese momento? Según el código, es cada uno de los elementos de @$contents, pero, ¿qué tipo de dato es?

Perdón, se me fue ese % que no te gusta.

Así es :


y ese $contents es un resultado de una consulta :


$_ yo creo que debe contener el contenido de la posición del array en ese momento.

A ver, a ver...

El resultado de la consulta es una referencia a un array. Ese valor se supone que está dentro de $contents.

Luego entonces @$contents devuelve una lista con los valores del array referenciado. Como se le ha pasado una referencia a un hash vacío dentro de fetchall_arrayref(), entonces lo que estás haciendo es en realidad llamar a fetchrow_hashref() dentro de un bucle por cada fila del resultado. Cada elemento del array, entonces, guarda una referencia a un hash, con los campos de cada columna de cada fila del resultado.

Entonces, $_ dentro del map() guarda una referencia a un hash. Entonces... sobran las llaves completamente:

map( $_->{'creador_'.$_->{'created_by'}} = $usuario->retrieve( $_->{'created_by'} ) , @$contents);

Quizás te quede más claro si lo haces con un for():

De esta manera, puedes, además, colocar print() o say() dentro del código para ver qué está haciendo. Y una vez que lo tengas funcionando, si quieres, lo pasas a forma de map(). O lo dejas como bucle.

No, nada, con el for() sí que menos, pues esta vez no me creerá la referencia para tener los datos del creador...

Mi pregunta para el map es:

map( $_->{'creador_'.$_->{'created_by'}} = $usuario->retrieve( $_->{'created_by'} ) , @$contents);

$_->{'created_by'} en rojo: ahí sí vale 1, pero $_->{'created_by'} al parecer vale hice un die() dentro de la función $usuario->retrieve y pude ver que el valor que esta tomando es 1, hice el die Dumper dentro de esta función y efectivamente me retorna el valor esperado: el creador son los datos del id 1...

Pero cuando hago el Dumper de $contents todos los registros me han creado un referencia ->{'creador_'1} pero con los datos del editor en ese momento y no con el creador, en estos casos que pruebo me trae los datos del usuario con id 3. :S. ¡OJO!: Eso es solo cuando yo pongo $_->{'created_by'} que supuestamente vale 1, si pongo el 1 en vez de la variable todo funciona normal...

El map() no funciona como yo esperaba...

El for() que te he puesto hace las mismas operaciones que el map(), solo que en varias líneas, con lo que es más fácil de depurar, incluso con el depurador integrado de Perl.

Esa es otra posibilidad: ejecutarlo paso a paso para ver qué hace.

Pero lo más raro es que de esa forma no me crea la referencia {'creador'}, es decir el Dumper no me trae los datos:

Disculpa. Este es el correcto:

Y ahora tenemos lo mismo:



el user_id es el 1, y me trae los datos del 3...

hice un die Dumper dentro del for y tengo esto:




y este es el resultado que espero :S

Pero, ¿en qué momento hiciste el Dumper, y de qué?

Dices que el resultado del Dumper es correcto, pero ¿es justo después del receive()?

¿Y si haces un Dumper de $_->{ $usuario_nw } justo después de la asignación, para ver qué contiene?

Podría ser que siempre estés almacenando los valores en el mismo sitio...