Foro - Perl en Español

por **ridomil** » 2012-04-24 07:58 @374

Muy buenas, me presento me llamo Iván y estoy desarrollando con Perl, CGI y DBI.

Bueno, al lio, resulta que estoy recuperando de una BD el valor de un campo. Este valor es un 0 pero cuando hago la consulta con Perl y obtengo el valor de la referencia me devuelve un 1 en el log... Os pongo la subrutina:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub comprobarNDocsTiposFuentes {
 
    my ( $self, $tipoComprobar ) = @_;
 
    $self->guardarLog( "Valor que llega a la funcion COMPROBAR......................" . $self->{_idFuente} );
    $self->guardarLog( "Valor que llega a la funcion COMPROBAR....................." . $tipoComprobar );
 
    $self->{_manejador} = $self->{_conexion}->prepare(
        "SELECT TRel_NDocs
                                FROM T_Tipos_x_Fuentes
                                WHERE TRel_Tipo='" . $tipoComprobar . "'
                                AND TRel_Fuente='" . $self->{idFuente} . "'"
    ) or $self->guardarLog( "[obtenerNumeroDocumentos] Preparacion: " . DBI::errstr );
 
    $self->{_manejador}->execute() or $self->guardarLog( "[ObtenerNumeroDocs] Ejecucion: " . DBI::errstr );
 
    while ( my $ref = $self->{_manejador}->fetchrow_arrayref() ) {
        $self->{'_numeroDocumentos'} = $ref->[0];
        $self->guardarLog( "VALOR DEL NUMERO DE DOCUMENTOS CON LA REFERENCIA ARRAY ....-----> " . $ref->[0] );
        $self->guardarLog( "VALOR DEL NUMERO DE DOCUMENTOS CON LA REFERENCIA ARRAY ....-----> " . $ref->[1] );
        $self->guardarLog( "VALOR DEL NUMERO DE DOCUMENTOS CON LA REFERENCIA ARRAY ....-----> " . $ref->[2] );
        $self->guardarLog(
            "VALOR DEL NUMERO DE DOCUMENTOS CON LA REFERENCIA ARRAY ....----->" . $self->{'_numeroDocumentos'} );
    }
 
    $self->guardarLog( "[ObtenerNumeroDocumentos] Resultado: " . DBI::errstr ) if DBI::errstr;
    $self->{_manejador}->finish();
}
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

El valor que me devuelve en el Log es 1, sin embargo en BD este valor con los mismos datos que utiliza para realizar la consulta es 0. Y la verdad es que no lo entiendo...

Muchas gracias de antemano.

    $self->{_manejador} = $self->{_conexion}->prepare(
        "SELECT TRel_NDocs FROM T_Tipos_x_Fuentes WHERE TRel_Tipo=? AND TRel_Fuente=?"
    ) or $self->guardarLog( "[obtenerNumeroDocumentos] Preparacion: " . DBI::errstr );
 
    $self->{_manejador}->execute($tipoComprobar, $self->{idFuente})
        or $self->guardarLog( "[ObtenerNumeroDocs] Ejecucion: " . DBI::errstr );
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **ridomil** » 2012-04-25 02:01 @125

Una de mis principales dudas es si existe alguna otra forma de extraer el valor de forma única es decir, de extraer unicamente ese valor de la consulta. Sin utilizar un arrayref() o hashref(). La verdad es que es algo bastante raro.

por **explorer** » 2012-04-25 10:17 @470

Me he dado cuenta de una cosa: estás haciendo un SELECT de un solo campo.

Así, al hacer un fetchrow_arrayref(), estás obteniendo una referencia a un array que solo tiene un elemento.

Así, dentro del bucle, solo debería existir $ref->[0], y no $ref->[1] ni $ref->[2] y siguientes.

Lo puedes simplificar un poco más:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

    while ( my($ndocs) = $self->{_manejador}->fetchrow_array() ) {
        $self->{'_numeroDocumentos'} = $ndocs;
        $self->guardarLog( "VALOR DEL NUMERO DE DOCUMENTOS CON LA REFERENCIA ARRAY ....-----> $ndocs" );
    }
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Los paréntesis que rodean a $ndocs son importantes. Marcan que queremos ejecutar a fetchrow_array() en contexto lista. Ella nos devuelve entonces la lista de valores de la cada fila del resultado. Como esa fila solo tiene un valor, es el que se almacena en $ndocs.

Foro - Perl en Español

Perl y DBI

Perl y DBI

Publicidad

Re: Perl y DBI

Re: Perl y DBI

Re: Perl y DBI

¿Quién está conectado?