Foro - Perl en Español

por **zackarias** » 2011-09-27 19:56 @872

hola, soy nuevo en el foro.

Estoy creando una interfaz gráfica para un programa de Bioperl. Estoy usando glade + gtk para crear la interfaz.

El problema es cómo hacer global la variable $archivo_seleccionado ya que la necesito para otra función de otro botón que es el encargado del script Bioperl.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

# función para el botón de selección de archivo 
sub seleccion_archivo_file_set_cb {
         my $archivo_seleccionado = $seleccion_archivo->get_filename;
return ($archivo_seleccionado);
        
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

si hago esto para guardarla en otra variable

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$ruta = seleccion_archivo_file_set_cb;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

me aparece esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Global symbol "$ruta" requires explicit package name at archivo.pl line 16.

Bareword "seleccion_archivo_file_set_cb" not allowed while "strict subs" in use at archivo.pl line 16.
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

¿Puedo llamar a esta función de esa manera o estoy erróneo?
Por su comprensión, gracias. Saludos.

Bienvenido a los foros de Perl en español, zackarias.

Yo juraría que el problema está en otro sitio...

¿Podrías hacer un ejemplo muy pequeño, de un programa mínimo, en que se produzca el mismo error?

Para que una variable sea global a todas las funciones del programa, basta con declarar fuera de esas funciones, al principio, con my() u our().

por **zackarias** » 2011-09-27 20:19 @888

Gracias, explorer, por responder tan rápido.

Declaré las variable fuera de la función pero me sigue apareciendo este problema:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Bareword "seleccion_archivo_file_set_cb" not allowed while "strict subs" in use Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

¿Será porque es una función de uno de los botones que no se puede llamar?

Te dejo lo que llevo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use Gtk2 '-init';
use Gtk2::GladeXML;
use Bio::SeqIO;
  
# Variables
my($programa, $ventana_principal, $seleccion_archivo,$guardar_archivo,$archivo_seleccionado,$ruta);
  
$programa = Gtk2::GladeXML->new('interfaz.glade');
  
# Widgets
$ventana_principal = $programa->get_widget('ventana_principal');
$seleccion_archivo = $programa->get_widget('seleccion_archivo');
$guardar_archivo = $programa->get_widget('guardar_archivo');
$ruta = seleccion_archivo_file_set_cb;
$programa->signal_autoconnect_from_package('main');
$ventana_principal->show_all();
  
Gtk2->main;
 
# función para salir
sub boton_cerrar_clicked_cb {Gtk2->main_quit;}
sub boton_salir_activate_cb {Gtk2->main_quit;}
sub guardar_clicked_cb {$guardar_archivo->show_all();}
sub cancelar_clicked_cb{$guardar_archivo->hide;}
 
# función para el botón de selección de archivo 
sub seleccion_archivo_file_set_cb {
          $archivo_seleccionado = $seleccion_archivo->get_filename;
          return ($archivo_seleccionado);
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2011-09-27 20:35 @899

Hummm... qué extraño... yo lo veo bien...

Agrégale '()' al final:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$ruta = seleccion_archivo_file_set_cb();
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

o así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$ruta = &seleccion_archivo_file_set_cb;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Una cosa... supongo que te habrás dado cuenta de que la línea 16 se ejecutará inmediatamente, antes de llegar al bucle de espera de la línea 20, por lo que quizás, en $ruta, no habrá nada.

por **zackarias** » 2011-09-27 21:55 @955

Solo era un misero '()'.

Gracias, explorer.

Saludos.

Foro - Perl en Español

Problema con variable y función

Problema con variable y función

Publicidad

Re: Problema con variable y función

Re: Problema con variable y función

Re: Problema con variable y función

Re: Problema con variable y función

¿Quién está conectado?