Foro - Perl en Español

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

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

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?

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.

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.