Foro - Perl en Español

Hola a todos, soy nuevo en el foro, espero que me puedan ayudar.

¿Cómo hago para usar la función require o include de PHP en Perl? O sea, ¿cuál es su equivalente? Probé usando el require y el do pero no hacen lo mismo.

O sea, tengo un script de configuración en el que guardo las variables de conexión a la BD y cuando hago un require en el script principal que llama a este script de configuración no agarra esas variables. ¿Cómo hago para que agarre las variables como si se tratara de un solo script?

Es que en el archivo de configurción me conecto a una BD y saco los valores iniciales con cual ejecutar la aplicación, entonces necesito obtener esa variable que asocia a la conexión a la BD para no estar volviendo a conectar, sino usar esa que ya existe en el archivo de configuración. ¿Cómo lo hago?

Bienvenido a los foros de Perl en Español, usarioma.

El otro día estuvimos hablando de do(), que es justo lo que puedes usar.

configuracion.pl:

programa.pl:

Muchas gracias.

¿Y si necesito que el script configuracion.pl me retorne un valor para procesarlo en programa.pl? ¿Cómo hago eso?

Podrías definir una subrutina dentro del fichero de configuración y luego ejecutarla dentro del programa.

Pero eso depende de si quieres retornar un valor en función de la carga del primero o si puedes ejecutarlo después.

Si nos dices que es lo que quieres hacer, te podríamos ayudar

Actualización: sí que se puede hacer con do(), que devuelve el valor de la última sentencia:

Gracias, esto del our() me sirvió de mucho. Sería bueno encontrar la documentación en Español, porque mi inglés no es de los mejores y a veces traduzco mal y por eso pienso que tal función no me puede servir.

En ese estamos... total, solo hay que traducir un millón de palabras

Eso también se puede hacer con eval. El problema es que con éste se usa más memoria y es más lento que do porque abre e interpreta el archivo; luego ejecuta, mientras que do no da tantas vueltas (creo).