Lo que declaras con
my solo tiene visibilidad en el ámbito (scope) donde aparece la declaración, así que no podrás acceder a esas variables desde fuera del fichero config.pl.
Yo en tu caso, simplemente no usaría
my para declarar esas variables y las dejaría como globales (si quieres puedes meterlas dentro de un
package).
Luego desde el programa principal, si están en el mismo paquete, podrás acceder a ellas declarándolas con
our o si están en otro paquete, utilizando el nombre completo (o sea, incluyendo el paquete en el nombre).
Por ejemplo:
Using perl Syntax Highlighting
# config.pl...
$foo = 23;
$bar = 42;
# script.pl
use strict
;
do "config.pl";
our ($foo, $bar);
print "foo: $foo, bar: $bar\n";
Coloreado en 0.002 segundos, usando
GeSHi 1.0.8.4
o
Using perl Syntax Highlighting
# config.pl...
package My
::Config;
$foo = 23;
$bar = 42;
# script.pl
use strict
;
do "config.pl";
print "foo: $My::Config::foo, bar: $My::Config::bar\n";
Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
