Ver Tema

60N2410 · 2011-12-22 05:53 @287

¡Hola!

Tengo definido un archivo de funciones "funciones.pm" ubicado en /usr/share/perl5/, en el cual tengo definida una función "func($parm)" que recibe el string $parm y retorna un arreglo. Luego, en mi programa principal hago esto:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

.....
use funciones;
.....
.....
sub buscar{
...
my $lista = Gtk2::SimpleList->new(
                        Nombre => 'text'
            );
....
$lista->signal_connect (row_activated => 
   sub{
      my ($slist, $path, $column,$ref) = @_;
      my $row_ref = $slist->get_row_data_from_path ($path);
      my @arreglo=@{$row_ref};
      my @arr=func($arreglo[0]);
      ....
   });
.....
}
 

Al llamar a la función func() dentro del callback me da el siguiente error:

Syntax: [ Download ] [ Hide ]

Using text Syntax Highlighting

*** unhandled exception in callback:

***   Unexpected EOF at /usr/share/perl5/funciones.pm line 328.

***  ignoring at ./principal.pl line 1069.

Pero si la llamada a la función la hago fuera del callback en cualquier otro lugar, funciona perfectamente. Pero necesito llamarla dentro del callback ya que preciso el dato que se selecciona al dar doble clic en la lista.

¿Alguna idea de lo que puede estar pasando?

¡Muchas gracias!

explorer · 2011-12-22 06:36 @317

El error dice que se ha encontrado un fin de fichero en la línea 328 de funciones.pm.

Es posible que el programa esté llamando a la callback antes de que el fichero haya sido abierto. O que haya ocurrido un close() del fichero antes de la llamada.

P.D. No necesitas colocar funciones.pm en un directorio del sistema. Valdría con ponerlo en el mismo directorio donde está el programa principal.

Publicidad

Socializa