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í:
Using perl Syntax Highlighting
- #!/usr/local/perl -w
- $linea = 1;
- open(INSTAL,"|/root/Desktop/if_compiler/install.sh");
- while(INSTAL && $linea<13)
- {
- print $linea;
- if ($linea==1)
- { print INSTAL "1\n";}
- if ($linea==2)
- { print INSTAL "2\n";}
- if ($linea==3)
- { print INSTAL "/root/Desktop/if_compiler/l_for_ncomMMSWX585.lic\n";}
- if($linea==4)
- { print INSTAL "yes\n";}
- if($linea==5)
- { print INSTAL "1\n";}
- if($linea==6)
- { print INSTAL "\n";}
- if($linea==7)
- { print INSTAL "q";}
- if($linea==8)
- { print INSTAL "accept\n";}
- if($linea==9)
- { print INSTAL "/\n";}
- if($linea==10)
- { print INSTAL "\n";}
- if($linea==11)
- { print INSTAL "\n";}
- if($linea==12)
- { print INSTAL "\n";}
- $linea = $linea+1;
- }
- close(INSTAL);
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
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...
pero funciona...
