Foro - Perl en Español

por **sarriaga** » 2014-03-19 09:19 @430

Hola, ¿qué tal? Tengo un problema para llenar un control popup_menu en un .pm en POO.

Les explico lo que intento hacer: es hacer un select de todos los nombres que son distintos en una tabla, junto con su ID. Esta misma manera la he utilizado en programación convencional, es decir, en scripts pl y funciona, pero no sé si en los métodos del pm se realiza de la misma manera.

Espero puedan responderme y ayudarme en dicho conflicto.
Saludos

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub catalogoLineas{ # Obtener todas las líneas
  my $self = shift;
  $self->{Lineas} = $dbh->selectall_arrayref("SELECT DISTINCT(NOMBRE), LINEA_ARTICULO_ID FROM LINEAS_ARTICULOS");
  my (@linea, %linea) = ('');
  if(defined $self->{Lineas}){
    foreach(sort {$a->[1] cmp $b->[1] } @$self->{Lineas}){
      push(@linea, $_->{Lineas}->[1]);
      $self->{Lineas}{$_->{Lineas}->[1]} = "$_->{Lineas}->[0]";
    }
  }
     
 print CGI->popup_menu(-align=>'left',-name=>'tipo', -values=>\@linea, -labels=>\%linea, -override=>1);
}
 
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Sí, se hace de la misma manera, pero no das información de la forma de comunicar el resultado de la ejecución de los métodos, con el programa principal. En el ejemplo que pones, el método saca el resultado de forma directa a la salida estándar (print). No es obligatorio de esta manera, desde luego. Solo es una forma más.

En cuanto al código, se ve un problema grave: confundes %lineas con $self->{Lineas}.

El código corregido sería así (no probado):

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub catalogoLineas {                        # obtener todas las líneas
    my $self = shift;
    my (@linea, %linea);
 
    my $array_ref = $dbh->selectall_arrayref("SELECT DISTINCT(NOMBRE), LINEA_ARTICULO_ID FROM LINEAS_ARTICULOS");
    $self->{Lineas} = $array_ref;
 
    if (defined $array_ref){
        for (sort {$a->[1] cmp $b->[1] } @$array_ref) {        # ordenados por ID
            push(@linea, $_->[1]);                               # guardar el ID
            $linea{$_->[1]} = $_->[0];                           # guardar el nombre, indexada por el ID
        }
    }
 
    print CGI->popup_menu(-align => 'left', -name => 'tipo', -values => \@linea, -labels => \%linea, -override=>1);
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **sarriaga** » 2014-03-19 11:23 @516

Lo siento

es que aún estoy aprendiendo este modo de programación, gracias si funciona así, ahora debo mandarlo llamar en otro método. ¿Se pondría solo de la siguiente manera en el nuevo método?

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub displayFormArticulos {                          # BUILDING crear un formulario en interfaz
    my $self = shift;
    $self = CGI->h3( { -align => 'CENTER' }, 'Nuevo articulo' );
    print CGI->table(
        { -border => 0, -align => 'center', -textalign => 'left' },
        CGI->Tr(
            [   CGI->td( { align => 'left' }, 'Nombre: ' . '<br>' )
                    . CGI->td( { -align => 'left' },
                    CGI->textfield( name => 'nom_articulo', -override => 1 ) . '<br>' ),
            ]
        ),
        CGI->Tr(
            [   CGI->td( { -align => 'left' }, 'Almacenable: ' . '<br>' )
                    . CGI->td(
                    { -align => 'left' },
                    CGI->popup_menu(
                        -align    => 'left',
                        -name     => 'almacenable',
                        -values   => [ '', 'S', 'N' ],
                        -override => 1
                        )
                        . '<br>'
                    ),
            ]
        ),
        CGI->Tr(
            [         CGI->td( { -align => 'left' }, 'Tipo: ' . '<br>' )
                    . CGI->td( { -align => 'left' }, $self->catalogoLineas . '<br>' ),
            ]
        ),
 
    );
}
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2014-03-19 16:10 @715

Ya vemos más problemas...

Verás: si en la línea 28 llamas al método, para insertar en esa posición el select con el resultado de la consulta SQL, entonces es que el método debe devolverlo con un return, no con un print, como lo tienes ahora.

El método catalogoLineas ejecutará el print. El select saldrá por la salida estándar. El resultado de la ejecución de print será -normalmente- un '1'. Como es también la última sentencia del método, ese será el valor de retorno del método, y ese será el valor que obtendrás si ejecutas el código tal como lo tienes.

Entonces... en catalogoLineas, debes cambiar print por return, para que el select sea devuelto al llamador (que en tu caso es displayFormArticulos).

Esto va en cascada... ¿quién llama a displayFormArticulos? Si es otra función, debes tener en cuenta que displayFormArticulos saca su resultado en pantalla, en el momento en que se le llama, por la misma razón: lo hace con un print.

Por otra parte, la línea 3 seguro que está mal... ¿lees $self en la línea 2 y luego lo sobreescribes con lo que ejecutas en la línea 3? Seguro que no es eso lo que quieres hacer.

por **sarriaga** » 2014-03-25 11:23 @516

Lo estoy haciendo todo en un mismo método (me está funcionando de ésta manera), creo que es mejor recoger los valores para procesarlos en otro método que necesito.

Foro - Perl en Español

Métodos para llenar popup_menu POO

Métodos para llenar popup_menu POO

Publicidad

Re: Métodos para llenar popup_menu POO

Re: Métodos para llenar popup_menu POO

Re: Métodos para llenar popup_menu POO

Re: Métodos para llenar popup_menu POO

¿Quién está conectado?