Foro - Perl en Español

por **lykoz** » 2011-09-07 11:26 @518

Saludos

Tengo poco tiempo programando en Perl y estoy realizando una aplicación gráfica utilizando TK. En ésta quiero enviar un texto almacenado en un arreglo a otra ventana al presionar el botón, la otra ventana está definida en una función aparte. Entonces el problema que se me presenta es que al colocar la llamada a la función en el botón, ésta se ejecuta de manera automática al iniciar el programa, abriendo el mismo número de ventanas que hay de botones y después al dar clic en algún botón me muestra un mensaje de error:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use strict;
use Tk;
 
my $mw=MainWindow->new;
my @arreglo =('hola','mundo','todos','hoy');
 
my @botones=();
my $i=0;
for($i=0;$i<9;$i++){
    $botones[$i]=$mw->Button(
        -text=>$i,
        #linea cambiada por sugerencia de explorer
        #-command=>\&ventana($i)
        -command=>sub{ ventana ($i)}#nueva linea que si realiza la llamada a la funcion
    )->pack();
}
 
MainLoop;
 
sub ventana{
    my $in=@_;
    my $pop = MainWindow->new;
    my $etiqueta = $pop->Label(
        -text => 'Escogiste: '.$in
    )->pack();
}
 
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

El mensaje de error es:

Tk::Error: Not a CODE reference at C:/Perl64/site/lib/Tk.pm line 250.
Tk callback for .button3
Tk::__ANON__ at C:/Perl64/site/lib/Tk.pm line 250
Tk::Button::butUp at C:/Perl64/site/lib/Tk/Button.pm line 175
<ButtonRelease-1>
(command bound to event)

De esta manera estás indicando a -command una referencia a una función (anónima), que, cuando se ejecute, lo único que se ejecuta es ventana($i).

Lo que tenías puesto es \&ventana($i), que provoca lo que comentas: ejecutar ventana($i), para cada $i, y de ahí obtiene la referencia al resultado de la ejecución, y no la referencia a ventana().

por **lykoz** » 2011-09-07 12:50 @576

Gracias, explorer, ha funcionado perfecto. Ahora me abre los mensajes solo cuando presiono un botón que es lo que quería que pasara, solo que no me muestra el valor de $i en el label $etiqueta ya que siempre muestra 'Escogiste: 1' cuando lo que debería mostrar es el valor del botón presionado.

por **explorer** » 2011-09-07 13:46 @615

Cambia la línea

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

    my $in  = @_;     # asigna a $in el número de elementos que hay en @_
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

    my($in) = @_;     # asigna a $in el primer elemento de @_
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

o por

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

    my $in  = shift;  # lo mismo, pero además, reduciendo @_
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Esta última es la que más se usa.

por **lykoz** » 2011-09-07 14:31 @646

Tenías razón, explorer, olvidé colocar los paréntesis para asignar el valor, y dirás que soy latoso pero el problema que me aqueja es que el valor que recibe la función es el último que obtiene la variable $i. Leyendo un poco tutoriales me he dado cuenta que mi error se debe principalmente a que provengo de programar PHP, entonces como ahí podía crear formularios con una cantidad variable de cajas de texto y botones he creído que se puede hacer lo mismo con Perl, bueno, crearlos sí, ya lo hice, entonces lo que falta por resolver es identificar que botón fue el que ha sido presionado, pensando en que sería parecido al PHP decidí mandar la variable $i como argumento pero al presionar el botón correspondiente el valor que se envía es 4, precisamente el último que obtuvo al crear los botones en la ventana.

¿Existe alguna solución? La verdad es que llevo con este problema ya 2 días y es lo único que me ha detenido, ya que forma parte de un programa más grande.

por **explorer** » 2011-09-07 15:42 @696

Pues no lo entiendo...

La siguiente versión sí que me funciona a mí:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
 
use Tk;
 
my $mw = MainWindow->new;
 
for my $i (0 .. 8) {
    $mw->Button(
        -text    => $i,
        -command => sub{ ventana($i) },
    )->pack();
}
 
MainLoop;
 
sub ventana{
    my($in) = shift;
 
    print "[$in]\n";
 
    MainWindow->new->Label(
        -text => "Escogiste: $in",
    )->pack();
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

(He quitado algunas cosas, pero el código principal Tk está ahí.)

por **lykoz** » 2011-09-07 16:05 @712

Gracias, explorer. El problema ha quedado resuelto, he cambiado la forma del for() en mi código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

for($i=0;$i<9;$i++){
...
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

for my $i (0...8){
...
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

y ha funcionado, ahora voy a investigar qué diferencia hay entre una y otra forma de expresar el ciclo for() pues pensaba que funcionaban de la misma forma.

por **explorer** » 2011-09-07 16:39 @735

Interesante... yo tampoco lo veo...

my() define variables locales en el contexto en donde se encuentran, así que en el primer caso, es todo el programa, pero en el segundo caso, es solo dentro del bucle for().

Podría ser... que en el segundo caso, se cree una nueva copia de $i, en cada vuelta...

No sé... tendrá que ser un experto el que lo averigüe.

Foro - Perl en Español

Envío de parámetros a funciones con botón

Envío de parámetros a funciones con botón

Publicidad

Re: envío de parámetros a funciones con botón

Re: envío de parámetros a funciones con botón

Re: Envío de parámetros a funciones con botón

Re: Envío de parámetros a funciones con botón

Re: Envío de parámetros a funciones con botón

Re: Envío de parámetros a funciones con botón

Re: Envío de parámetros a funciones con botón

¿Quién está conectado?