Incluir script dentro de otro

[Farookh_Bulsara]

Como hago para usar la funcion require o include de PHP en perl? osea cual es su equivalente,probe usando el require y el do,pero no hacen lo mismo
osea tengo un script de configuracion en el q guardo las variables de conexion a la BD y cuando hago un require en el script q llama a este script de configuracion no agarra esas variables ,como hago para que agarre las variables como si se tratara de un solo script

ayuda porfavor

[monoswim]

Creo que estás buscando la función use

http://perldoc.perl.org/functions/use.html

[Farookh_Bulsara]

Pero lo que yo quiero es poder importar otro script de perl(.pl) y poder usar las variables que este contiene
usando la funcion use,solo se puede importar un modulo y yo desconozco como hacer modulos en perl

[monoswim]

Es re fácil de usar módulos y tiende a mejorarte el diseño de tu sistema si usas Programación Orientada a Objetos (POO)...

Código:

package mono;
sub new {
     my $class_name  = shift;
     my $class = ref($class_name) || $class_name;
     my $mono = {};

     bless($mono, $class);

   return $mono;
}

con eso ya tienes bendecida la variable para usarla en cualquiera de los 4 archivos...te recomiendo que aprendas POO

Espero que te guste

Saludos

[Farookh_Bulsara]

es q no necesito hacer una clase,sino hacer un archivo aparte donde se guarde la configurcion, y luego recuperar el valor de esas variables en el primer script,como hago eso?

[Farookh_Bulsara]

alguna ayuda porfavor?
es q en el archivo de configurcion me conecto a una BD y saco los valores iniciales con cual ejecutar la aplicacion,entonces necesito obtener esa variable que asocia a la conexion a la BD para no estar volviendo aa conectar ,sino usar esa q ya existe en el archivo de configuracion,como lo hago?
pense q era sencillo como en php
pero aqui hay un monton de funciones,require,do,use y otras mas creo

[monoswim]

Con require puedes crear una función que haga todo lo que necesitas y que regrese la info con return(%variable)

Al llamarla desde tu script con my %data = &funcion(); ya traes la info...

O también puedes envar la variable como parámetro por referencia...

&función(\%variable);

Así gastas menos memoria...;)

Saludos

[monoswim]

Me quedé pensando porque no podías ver una variable con require y me acordé que debes usar

use vars o our se puede hacer...

checkea las perldoc