Foro - Perl en Español

por **willbender** » 2013-06-14 10:16 @469

Tengo este código y una base de datos PostgreSQL.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$Data3->Select2( 'cred07h.historia',
    'pan = \'' . $$pan{'pan'} . '\' and deborcre=\'D\' and anomesci=\'' . $$ciclo{'anomesci'} . '\'', 'valor' );
$charge = $Data3->Fetch();
$Statements->ChargeAmount( $$charge{'valor'} );
$Data3->Finish();
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Éste depende de un archivo .pm con nombre Data.pm que ejecuta los módulos Select2 y Fetch.

Estos están así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub Select2 {
    my $self = shift;
    my $sql  = undef;
    my @row  = undef;
    my @rows = undef;
    my $href = undef;
    my $i    = 0;
    $self->{TABLE} = shift if (@_);
    $self->{KEYS}  = shift;
    $self->{NUM}   = shift;
    if ( $self->{NUM} eq 'SI' ) {
 
        if ( !$self->{KEYS} ) {
            $sql = "$self->{TABLE} ";
        }
        else {
            $sql = "$self->{TABLE} WHERE $self->{KEYS} ";
        }
        $self->{STH} = $self->{DBH}->prepare( 'SELECT max(fingreso) as fingreso FROM ' . $sql )
            or die "Failed prepare\n";
        $self->{STH}->execute() or die "Failed execute\n";
    }
    elsif ( $self->{NUM} eq 'valor' ) {
        if ( !$self->{KEYS} ) {
            $sql = "$self->{TABLE} ";
        }
        else {
            $sql = "$self->{TABLE} WHERE $self->{KEYS} ";
        }
        $self->{STH} = $self->{DBH}->prepare( 'SELECT sum(valor) as valor FROM ' . $sql ) or die "Failed prepare\n";
        my $valor;
        $self->{STH}->execute() or die "Failed execute\n";
    }
    elsif ( $self->{NUM} eq 'ints' ) {
        if ( !$self->{KEYS} ) {
            $sql = "$self->{TABLE} ";
        }
        else {
            $sql = "$self->{TABLE} WHERE $self->{KEYS} ";
        }
        $self->{STH} = $self->{DBH}->prepare( 'SELECT sum(ints) as ints FROM ' . $sql ) or die "Failed prepare\n";
        $self->{STH}->execute() or die "Failed execute\n";
    }
    else {
        if ( !$self->{KEYS} ) {
            $sql = "$self->{TABLE} ";
        }
        else {
            $sql = "$self->{TABLE} WHERE $self->{KEYS} ";
        }
        $self->{STH} = $self->{DBH}->prepare( 'SELECT count(*) as count FROM ' . $sql ) or die "Failed prepare\n";
        $self->{STH}->execute() or die "Failed execute\n";
    }
 
}
 
sub Fetch() {
    my $self = shift;
    my $tag  = shift;
    my $href = undef;
 
    #print "Tag : [$tag]\n";
    $href = $self->{STH}->fetchrow_hashref();
    return $href;
}
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

pero al ejecutar el script, sí realiza la condición que indica ya que el cuarto parámetro dice "valor" e ingresa a la condición correcta, pero me retorna el siguiente error:

DBD::Pg::st fetchrow_hashref failed: no statement executing at Data.pm

la cual hace referencia a la línea del $href=$self->{STH}->fetchrow_hashref();

¿Me podrían ayudar? Yo necesito desplegar el valor de sum(valor) pero no logro hacerlo. Ya probé con fetchrow_arrayref(), fetchrow_array(), y tampoco.

Gracias

Pues... yo no veo nada raro... salvo la línea 31, que no sirve para nada. Pero tampoco afecta al resto del código.

Según lo que aparece en las búsquedas que he hecho en Internet, el mensaje de error indica que no se ha realizado una operación execute() antes de hacer el fetchrow_hashref(). Pero el caso es que el código sí que está.

¿Funciona bien para los otros casos de $self->{NUM}?

Si modificas el Data.pm para colocar el fetchrow_hashref() dentro del if(), ¿funciona?

por **willbender** » 2013-06-14 12:37 @567

Gracias por la respuesta. Probaré como dices, ingresando el hashref dentro del if().

Fíjate que cualquiera me da el error. Pensé que funcionaba con el primero pero al hacer el segundo elsif() y tercero, dio error y confirmé que me da error.

¡Te confirmo si funciona lo que me dijiste!

Gracias.

por **willbender** » 2013-06-14 16:11 @716

No funcionó. Da el mismo error. Probaré otro código, ya que el error es cuando quiere hacer el "select sum(columna_a_sumar) from". Es como que no lo entendiera, porque probé haciendo "select * from" y sí funcionó. Buscaré un poco de información al respecto ya que no capto ¡por qué no le gusta al execute() la sintaxis!

Si supieran algo agradezco los comentarios. Buen fin de semana.

por **explorer** » 2013-06-14 16:30 @729

Prueba con

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

        $self->{STH} = $self->{DBH}->prepare( 'SELECT sum(valor) as "valor" FROM ' . $sql ) or die "Failed prepare\n";
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

(comillas alrededor de valor)

por **willbender** » 2013-08-22 11:55 @538

Buen día. ¡Perdón por no responder y hasta ahora retomar este tema!

Te comento: por prioridades me cambiaron de proyecto y ahora nuevamente retomé éste en donde me sucede el error antes mencionado. Te confirmo que probé con la sintaxis que me diste de poner la palabra entre comillas dobles y también me dio el mismo error.

Agradezco tus comentarios. Seguiré investigando. Buen día. Éxitos.

por **explorer** » 2013-08-22 12:26 @560

Una pregunta: ¿este código ha llegado a funcionar alguna vez, en este servidor o en cualquier otro?

por **willbender** » 2013-08-22 15:36 @691

¡Sí funciona! ¡Pero en el log siempre me despliega ese error, cosa que no debería suceder!

por **explorer** » 2013-08-22 16:06 @712

¿Dices que funciona, y aún así sale el error?

¿No será que se está llamando a Fetch() en algún lugar del programa sin haber hecho antes un Select2()?

Una forma de comprobarlo sería poner uno o varios print(), en Fetch(), que sacaran los valores de

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

    $self->{TABLE}

    $self->{KEYS}

    $self->{NUM}Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

antes del fetchrow_hashref().

Para estar seguros, añade estas líneas dentro de Fetch():

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

    unless ($self->{STH}) {
        die "ERROR: Se ha llamado a Fetch() y no tenemos un STH.\n";
    }
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Esta es una simplificación de tu código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
...;
 
$Data3->Select2(
    'cred07h.historia',
    "pan = '$pan->{pan}' and deborcre='D' and anomesci='$ciclo->{anomesci}'",
    'valor'
);
 
$charge = $Data3->Fetch();
 
$Statements->ChargeAmount( $charge->{'valor'} );
 
$Data3->Finish();
 
...;
 
sub Select2 {
    my $self = shift;
 
    if (@_) {
        $self->{TABLE} = shift;
        $self->{KEYS}  = shift;
        $self->{NUM}   = shift;
    }
 
    die "ERROR: Se ha llamado a Select2 sin TABLE" if not $self->{TABLE};
 
    my $sql  = $self->{TABLE};
 
    $sql    .= " WHERE $self->{KEYS}"
                    if $self->{KEYS};
 
 
    if ( $self->{NUM} eq 'SI' ) {
 
        $sql = "SELECT max(fingreso) as fingreso FROM $sql";
    }
    elsif ( $self->{NUM} eq 'valor' ) {
 
        $sql = "SELECT sum(valor) as valor FROM $sql";
    }
    elsif ( $self->{NUM} eq 'ints' ) {
 
        $sql = "SELECT sum(ints) as ints FROM $sql";
    }
    else {
 
        $sql = "SELECT count(*) as count FROM $sql";
    }
 
    $self->{STH} = $self->{DBH}->prepare( $sql ) or die "Failed prepare\n";
    $self->{STH}->execute()                      or die "Failed execute\n";
}
 
sub Fetch() {
    my $self = shift;
 
    unless ($self->{STH}) {
        die "ERROR: Se ha llamado a Fetch() y no tenemos un STH.\n";
    }
 
    my $resultado = $self->{STH}->fetchrow_hashref();
 
    $self->{STH} = undef;               # borramos el STH, ya que hemos terminado la consulta,
                                        # así, si alguien vuelve a llamar a Fetch, saldrá un error
 
    return $resultado;
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Problema con hash_ref

Problema con hash_ref

Publicidad

Re: Problema con hash_ref

Re: Problema con hash_ref

Re: Problema con hash_ref

Re: Problema con hash_ref

Re: Problema con hash_ref

Re: Problema con hash_ref

Re: Problema con hash_ref

Re: Problema con hash_ref

¿Quién está conectado?