Foro - Perl en Español

Hola a todos,

Mi duda es muy simple:

Tengo una variable que contiene el nombre de un "sub", cuyo contenido es obtenido de forma dinámica:



Lo que quiero es llamar o invocar a dicho sub.
Lo he probado de las siguientes dos formas:


y


pero ninguna de ellas funciona.

¿Alguien me puede echar un cablecito?
¡Muchas gracias y saludos!
Felipe

Desgraciadamente continuo teniendo problemas.

Para el siguiente codigo:



obtengo el siguiente mensaje de error:

Código: Seleccionar todo

Can't use string ("decode_MDW_1_2") as a subroutine ref while "strict refs" in use at printDecodedLine.pl line 173, <STATFILE> line 2.

donde




Alguna idea de lo que estoy haciendo mal ahora?
Muchas gracias!
Saludos!
Felipe

Ok, acabo de comentar el "use strict"...
Creo que viene de ahi...

Vaya, parece que me voy acercando pero sigo sin dar en el clavo...

Como dije antes, he comentado la entrada "use strict", y ahora obtengo el error siguente:

Código: Seleccionar todo

Undefined subroutine &main::decode_MDW_1_2 called at printDecodedLine.pl line 173, <STATFILE> line 2.

Dicha subrutina (decode_MDW_1_2) no esta definida en este script perl sino en un perl module el cual declaro al inicio del programa:



Por lo tanto, no consigo ver pq no consigue encontrar dicha funcion, si estoy haciendo un "use" del package en cuestion...
Alguna sugerencia?

Gracias por adelantado!
Felipe

Pero es que aunque lo 'uses', debes 'importar' ese nombre al espacio de nombres de tu programa.

Tu programa está intentando buscar main::decode_MDW_1_2 (el nombre de la sub en el espacio de nombres de main), porque no sabe que en realidad debería ser MDW_1_2::decode_MDW_1_2.

Entonces tienes dos opciones... o agregas "MDW_1_2::" a la variable (y ahora tengo la duda de que funcione, pero creo que sí), y la otra es importar el nombre de esa sub en tu programa, con los mecanismos clásicos de importación de nombres (Exporter.pm).

Ya habia probado lo de añadir el nombre del package delante, para indicar donde buscar la funcion:



donde:
y


El error que obtengo es el siguiente:

Código: Seleccionar todo

Scalar found where operator expected at printDecodedLine.pl line 176, near "$decodingPlugin::$decodingPluginCommand"
        (Missing operator before $decodingPluginCommand?)
syntax error at printDecodedLine.pl line 176, near "$decodingPlugin::$decodingPluginCommand"
Execution of printDecodedLine.pl aborted due to compilation errors.

Luego probe lo siguiente solo por curiosidad (el nombre del DecodingPlugin tambien es obtenido dinamicamente) :



y el error obtenido fue el siguiente:

Código: Seleccionar todo

Bad name after MDW_1_2:: at printDecodedLine.pl line 176.

Voy a echar una ojeada a eso del Exporter.pm....
Saludos!!
Felipe

Pon el "use warnings;" al principio del programa.

Ya encontré el fallo:

Es que para Perl, los '::' son especiales...

Hola de nuevo Explorer,

El "use warnings" ya lo tenia puesto, de hecho, intento agarrar buenos habitos al programar en perl (usando siempre los modulos strict y warnings).

Te agradezco muchisimo haber dado con la solucion, pues no estaba facil la cosa!!

Un saludo cordial!!
Felipe