Foro - Perl en Español

por **Emstro** » 2011-01-19 10:04 @461

Hola, tengo la siguiente función:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub getSectionDescription {
    my $section_code = shift;
    my $dbh          = &EMIS::Database::gethandle('CEICP');
    my $sql          = '';
    my $sth          = undef;
    my $row          = {};
    my $section_name = undef;
 
    if ($dbh) {
       $sql = "   SELECT SECTION_NAME                    \n";
       $sql.= "     FROM LAYOUT_PATHTREE_MVS             \n";
       $sql.= "    WHERE NODE_CODE = '$section_code'     \n";
 
       $sth = $dbh->prepare($sql);
       $sth->execute;
#       foreach ($row = $sth->fetchrow_hashref()) {
#          push @{$section_name}, $row;
#       }
       $sth->finish();
       $dbh = releaseDBHandler($dbh);
       $section_name = $sql;
       return $section_name;
 
    }
}
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Y trato de retornar el valor de la siguiente manera:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$section_name = getSectionDescription($Data->{SECTION_CODE});
@{$section_name}[0]->{SECTION_NAME}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Pero me da este error cuando ejecuto mi .pl:
Can't use an undefined value as a HASH reference at

No sé qué será, lo he hecho de varia formas pero nada.

Gracias, Saludos.

Las líneas que obtienen el resultado de la consulta las tienes comentadas, por lo que no están ejecutándose. En su lugar, en la línea 21 tienes que $section_name es igual a la cadena de caracteres de la consulta. Así, es normal el error que te salga en pantalla.

Según las líneas comentadas, $section_name es una referencia a un array, en que cada elemento es un hash con correspondencias entre los nombres de las columnas de la tabla resultado de la consulta y el valor de la fila de la tabla.

Así, @{$section_name}[0]->{SECTION_NAME}, aunque quedaría más claro como $section_name->[0]->{SECTION_NAME}, intenta acceder al dato de la primera fila, columna 'SECTION_NAME'.

Deberías descomentar las líneas 16 a 18 y comentar la 21 (o quitarla).

Si quieres ver el aspecto que tiene $section_name, puedes usar a nuestro amigo Data::Dumper (o Data::Dumper:Simple):

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use Data::Dumper;
print Dumper($section_name);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **Emstro** » 2011-01-19 13:02 @584

Claro, explorer, tienes razón. Se me olvido descomentar esas líneas y comentar la 21 cuando puse este mensaje. Pero el original es el que dices tu, aun así no me recupera el dato.

Probé haciendo la consulta en la base de datos y ese campo está vacío, por eso el error.

SOLUCIONADO.

Gracias, explorer, por tu ayuda y tus comentarios.

Atte. Emstro.
Regards.

Foro - Perl en Español

Devolver una valor de un Hash

Devolver una valor de un Hash

Publicidad

Re: Devolver una valor de un Hash

Re: Devolver una valor de un Hash

¿Quién está conectado?