Foro - Perl en Español

por **fgalves** » 2007-05-24 03:45 @198

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:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$decodingPluginCommandColoreado en 0.002 segundos,  usando GeSHi 1.0.8.4

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

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$decodingPluginCommand($segment);Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

y

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

&$decodingPluginCommand($segment);Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

pero ninguna de ellas funciona.

¿Alguien me puede echar un cablecito?
¡Muchas gracias y saludos!
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).

por **fgalves** » 2007-05-24 04:41 @236

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

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my%result=$decodingPlugin::$decodingPluginCommand->($segment);Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

donde:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$decodingPlugin="MDW_1_2"Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

y

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$decodingPluginCommand="decode_MDW_1_2"Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

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

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my%result= MDW_1_2::$decodingPluginCommand->($segment);Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

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

por **explorer** » 2007-05-24 05:22 @265

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

Ya encontré el fallo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my%result="${decodingPlugin}::$decodingPluginCommand"->($segment);Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

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

por **fgalves** » 2007-05-24 06:09 @298

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

Foro - Perl en Español

Cómo lanzar una subrutina cuyo nombre está en una variable

Cómo lanzar una subrutina cuyo nombre está en una variable

Publicidad

¿Quién está conectado?