Foro - Perl en Español

Hola a todos,

El caso es que necesito acceder desde un módulo Perl (pm1) a una variable que se encuentra definida en otro módulo Perl (pm2).
El segundo módulo Perl (pm2) hace uso del primero:
use pm1;

¿Cómo puedo tener acceso a las variables definidas en pm1?
Lo he intentado con pm1::nombre_variable; pero el intérprete se queja.

¿Alguien me puede echar una mano?
¡¡Muchas gracias!!
¡Saludos!
Felipe

Un ejemplo muy pequeño.

pm1.pm:

pm2.pm:Ejecutando con perl ./pm2.pm tenemos la salida que esperamos: Hola.

Explicación:
* El uso de use strict; es siempre recomendable, para ayudar a identificar problemas. Pero es opcional, claro.
* En el pm1, con package indicamos que todo lo que sigue está en ese "espacio de nombres" (quiere decir que todas las variables tendrán un pm1:: delante de ellas).
* Declaramos nuestra variable $i como global, con la ayuda de our. No podemos declararlo con my porque entonces sería local a nuestro paquete. Si no existiera el 'strict' podríamos quitar el 'our' porque entonces estaríamos declarando igualmente una variable global. Otra forma de hacerlo es usando use vars qw{ $i };.
* En pm2 incluimos las variables de pm1 con el 'use'.
* Pintamos el valor de la variable $i que está en el paquete pm1: $pm1::i.

Esto es lo básico, pero como es mucho rollo el poner el nombre del módulo primero delante de todas sus variables, casi todo el mundo suele usar el módulo Exporter para ayudar a importar las variables de un módulo en el espacio de nombres del otro, y así, dar la sensación de que están todas en el mismo módulo.

Más información en el capítulo 12 de Perl Cookbook.