Foro - Perl en Español

Hola a todos...

Soy nuevo con Perl. Está excelente esta página.

Empecé a usar Perl porque necesito interactuar con un script de shell. El script es el instalador de una aplicación, y al ejecutarlo pide ingresar algunas opciones por teclado. Pero mi intención es que estas opciones se ingresen automáticamente.

Esto es lo que escribí:


El install.sh se ejecuta y recibe las primeras 3 opciones enviadas pero luego no se qué ocurre, y aunque termina la ejecución, no instala la aplicación.

Gracias por cualquier ayuda...

Tus opciones dependen de lo que quieras hacer.

Si las opciones son fijas, mételas en el script en una variable.

Si no son fijas y pueden pasarse como argumentos de la función, hazlo.

Si son demasiado complicadas para que el humano al cargo las escriba, haz una llamada a otro programa y que las averigüe por ti.

print INSTAL "/root/Desktop/if_compiler/l_for_ncomMMSWX585.lic\n"

Esto simplemente escribe "/root/Desktop/if_compiler/l_for_ncomMMSWX585.lic" en un archivo, lo cual dicho sea de paso está, muy feo...

... porque no deberías hacer eso desde una sesión de root.

Te entiendo, pero el problema es que el script
install.sh no es hecho por mi y no encuentro manera
de escribirle las opciones para que las tome fijas ni pasárselas por parámetro ya que éste al parecer ejecuta binarios que son los que piden y capturan las opciones por teclado.

En
print INSTAL "/root/Desktop/if_compiler/l_for_ncomMMSWX585.lic\n"

lo que trato de hacer es darle al install.sh una de las opciones que me pide, que es el path de la licencia.

Bienvenido a los foros de Perl en español, djosuef.

Si el script que realiza la instalación, admite la entrada de órdenes desde la entrada estándar, has elegido una buena estrategia.

Lo que podemos pensar es que, si es un shell UNIX normal, lo normal (repito) será que el carácter que indica el final de la introducción de un comando, es el del fin de línea ("\n"). Así que tu programa se puede reducir a:


Puede que alguien piense que esto es una forma muy elaborada de algo más simple:

pero... es un poco lioso... y feo pero funciona...

Esto funcionará, siempre y cuando el instalador no realice un flush() de la entrada estándar al principio de cada entrada de comandos. Si admite la entrada estándar, le mandas en un churro todas las opciones.

explorer, gracias por tu respuesta.

Sí. Al ejecutar en un terminal el install.sh me empieza a pedir por allí mismo las opciones, pero el programa se sigue comportando igual que antes.

Pasa por todas las opciones, pero algo no está bien porque no se instala...

En el terminal se muestra lo que me pide el install.sh pero no muestra lo que ingreso por el guión de Perl. ¿Cómo puedo ver todo lo que se ejecuta paso por paso?

Si el programa pasa por todas las opciones, entonces está identificando, al menos, todos los caracteres "\n" que le estamos enviando.

La cuestión es que debemos estar completamente seguros de que le estamos enviando, correctamente, todos los argumentos, en la secuencia correcta.

Si llega al final, y no se instala, debemos ver por qué no lo ha hecho. Es posible que el programa de instalación tenga un mensaje o un registro log donde quede reflejado todos los pasos que ha hecho, y el porqué no ha podido terminar de forma correcta.

El verlo paso a paso es complicado... porque estamos hablando de la ejecución de dos programas "en paralelo".

Ahora bien... si el instalador es un '.sh' (un shell), puedes editar la línea del shebang (la primera), y le agregas un '-x' para que el shell saque una traza de todas las líneas ejecutadas.

Por otra parte... quizás lo estamos complicando...

La extensión '.sh' del instalador indica que el programa está escrito en shell, así que debería ser fácil modificarlo para agregarle los argumentos por defecto.

Otra opción es usar un módulo como Expect.

Y otra más, meter los comandos de los binarios con las opciones necesarias dentro de un system(). Puedes probarlo aunque sea sólo para ver si podemos descartar que el problema esté en la shell y no en Perl.

Probablemente hace falta hacer un autoflush al buffer de entrada.

¿Por qué no usas IPC::Open3?