Foro - Perl en Español

por **danimera** » 2012-07-12 14:41 @653

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:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$_->{'created_by'}=1# para todos los registros que traigo
$_->{'edited_by'}=3# para todos los registrosColoreado en 0.002 segundos,  usando GeSHi 1.0.8.4

mi línea map es así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

map(%{$_}->{'creador'}=$usuario->retrieve($_->{'created_by'}),@$contents);Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

también hice esto para ver:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

map(%{$_}->{'creador_'.$_->{'created_by'}}=$usuario->retrieve($_->{'created_by'}),@$contents);Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

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:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

'creador_1' => bless(
    {   'primary_key' => 'user_id',
        'fields'      => [ 'user_id', 'username', 'password', 'email', 'creation_date', 'group_id', 'status' ],
        'db_type'     => 'CSV',
        'belongs_to'  => {},
        'table'       => 'user',
        'dbh'  => bless( {}, 'DBI::db' ),
        'data' => {
            'email'         => '[email protected]',
            'password'      => '1111',
            'group_id'      => '2',
            'creation_date' => '2012-6-14',
            'status'        => undef,
            'user_id'       => '3',
            'username'      => 'talabary'
        },
        'has_many' => { 'group' => { 'MyApp::Db::Group' => 'group_id' } }
    },
    'MyApp::Db::User'
    ),
    'date_creation' => '2012-7-9',
    'target'        => '',
    'edited_by'     => '3',
    'template'      => 'template.html',
    'lastest_edit'  => '2012-7-9',
    'show_in_menu'  => '',
    'image'         => '',
    'tags'          => '',
    'title'         => 'Terminos y Condiciones',
    'decription'    => '',
    'created_by'    => '1'
 }; 
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

pero lo que yo espero es:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

'creador_1' => bless(
    {   'primary_key' => 'user_id',
        'fields'      => [ 'user_id', 'username', 'password', 'email', 'creation_date', 'group_id', 'status' ],
        'db_type'     => 'CSV',
        'belongs_to'  => {},
        'table'       => 'user',
        'dbh'  => bless( {}, 'DBI::db' ),
        'data' => {
            'email'         => '[email protected]',
            'password'      => '2222',
            'group_id'      => '1',
            'creation_date' => '2012-6-14',
            'status'        => undef,
            'user_id'       => '1',
            'username'      => 'danimera'
        },
        'has_many' => { 'group' => { 'MyApp::Db::Group' => 'group_id' } }
    },
    'MyApp::Db::User'
    ),
    'date_creation' => '2012-7-9',
    'target'        => '',
    'edited_by'     => '3',
    'template'      => 'template.html',
    'lastest_edit'  => '2012-7-9',
    'show_in_menu'  => '',
    'image'         => '',
    'tags'          => '',
    'title'         => 'Terminos y Condiciones',
    'decription'    => '',
    'created_by'    => '1'
    };
 
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

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.

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():

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

for my fila (@$contents) {
    my $creado_por = $_->{'created_by'};
    my $usuario_rt = $usuario->retrieve( $creado_por );
    my $usuario_nw = "creador_$creado_por";
    $_->{ $usuario_nw } = $usuario_rt;
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

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.

por **danimera** » 2012-07-13 13:43 @613

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...

por **explorer** » 2012-07-13 14:41 @653

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.

por **danimera** » 2012-07-13 14:51 @660

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:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

    for my $fila (@$contents) {
 
    my $creado_por = $_->{'created_by'};
    my $usuario_rt = $usuario->retrieve( $creado_por );
    my $usuario_nw = "creador";
    $_->{ 'creador' } = $usuario_rt;
 
    }
 
   return Dumper  $contents;
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2012-07-13 14:54 @662

Disculpa. Este es el correcto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

for (@$contents) {
    my $creado_por = $_->{'created_by'};
    my $usuario_rt = $usuario->retrieve( $creado_por );
    my $usuario_nw = "creador_$creado_por";
    $_->{ $usuario_nw } = $usuario_rt;
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **danimera** » 2012-07-13 15:01 @668

Y ahora tenemos lo mismo:

Sintáxis: [ Descargar ] [ Ocultar ]

'creador_1' => bless( { 'primary_key' => 'user_id', 'fields' => [ 'user_id', 'username', 'password', 'email', 'creation_date', 'group_id', 'status' ], 'db_type' => 'CSV', 'belongs_to' => {}, 'table' => 'user', 'dbh' => bless( {}, 'DBI::db' ), 'data' => { 'email' => '[email protected]', 'password' => 'tabary', 'group_id' => '2', 'creation_date' => '2012-6-14', 'status' => undef, 'user_id' => '3', 'username' => 'talabary' }

el user_id es el 1,

y me trae los datos del 3...

hice un die Dumper dentro del for y tengo esto:

Sintáxis: [ Descargar ] [ Ocultar ]

$VAR1 = bless( { 'primary_key' => 'user_id', 'fields' => [ 'user_id', 'username', 'password', 'email', 'creation_date', 'group_id', 'status' ], 'db_type' => 'CSV', 'belongs_to' => {}, 'table' => 'user', 'dbh' => bless( {}, 'DBI::db' ), 'data' => { 'email' => '[email protected]', 'password' => 'adn', 'group_id' => '1', 'creation_date' => '2012-5-15', 'status' => '1', 'user_id' => '1', 'username' => 'admin' }, 'has_many' => { 'group' => { 'MyApp::Db::Group' => 'group_id' } } }, 'MyApp::Db::User' );

y este es el resultado que espero :S :cry:

por **explorer** » 2012-07-13 17:25 @767

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...

Foro - Perl en Español

Funcionamiento de map

Funcionamiento de map

Publicidad

Re: Funcionamiento de map

Re: Funcionamiento de map

Re: Funcionamiento de map

Re: Funcionamiento de map

Re: Funcionamiento de map

Re: Funcionamiento de map

Re: Funcionamiento de map

Re: Funcionamiento de map

Re: Funcionamiento de map

¿Quién está conectado?