Foro - Perl en Español

Hola a todos,

¿Cómo he de hacer para ejecutar un programa de Perl dentro de otro? ¿Usando "require"?

¿Cómo le paso al programa los parámetros, si lo quiero usar como si fuera una subrutina dentro de otro programa?

Imaginemos:



No sé si me habéis entendido. Supongo que es algo básico, pero es que no sé cómo enfocarlo...

Un saludo

Una cosa es incorporar el código de otro fichero Perl, en el nuestro (por lo que, a partir de ese momento, las variables y funciones de ese fichero formarán parte de nuestro espacio de nombres, y podremos ejecutar y acceder a ellos como si fuera el nuestro); y otra cosa es ejecutar un programa Perl externo (en ese caso, le pasamos unos argumentos, lo ejecutamos, y nos da una salida).

Para el primer caso, hay que usar: do(), use o require.

para el segundo caso, system(), exec, qx() y ``.

Cada uno tiene sus ventajas e inconvenientes.

Si solo vas a ejecutarlo una sola vez, el programa externo, entonces te vale la segunda solución.

Si el programa externo tiene variables y funciones (unas cuantas), y puede que las ejecutes o no, en distintos momentos, entonces es mejor usar la primera.

Exacto, una vez que pones use o require ya tienes disponibles todas las variables del programa al que se invoca desde el script principal, SALVO que estén definidas como my() dentro de algún bucle y traten de llamarse luego desde fuera del bucle o que sean redefinidas en el script principal, si dos variables tienen el mismo nombre en ambos scripts puedes tener problemas y no obtener lo que esperas.

De todos modos parece que estás haciendo el proceso inverso.

En tu ejemplo deberías cargar el programa 1 (invocarlo) desde el programa 2, no al revés.