Foro - Perl en Español

por **Ruben_Marcos** » 2012-04-20 07:59 @374

Hola, soy nuevo por aquí pero no es la primera vez que estos foros me resuelven alguna duda. En este caso he encontrado un caso muy parecido pero sigue sin resolverme la papeleta:

interactuar-con-shell-script-t6175.html

Estoy intentando hacer un script en Perl que lance un programa, monitorice la salida estándar y si pide entrada de datos, interaccione (no sé de antemano si el programa va a pedir datos, de ahí que monitorice la salida).

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
use strict;
use File::Path;
 
$|++;
 
open(HANDLE,"-|") || exec("/tmp/perl5/script.sh");
while (<HANDLE>) {
  print "$_";
  if ( $_ =~ /Continuar/ ) {
    print HANDLE, "y\n"; # ????
  }
}
 
close HANDLE;
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Este es un ejemplo lanzando un script de Bash que pregunta si "Continuar" esperando que se introduzca "y" o "n".

script.sh

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

#!/bin/sh
 
for i in `seq 1 10`; do
  print "Iteracion: $i"
  if [ $i -eq 2 ]; then
    echo "Continuar? (y/n):"
  fi
done
 
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Entiendo que es la forma de ejecutar el script pero no se me ocurre la forma de que en función la salida introduzca datos.

Agradecería cualquier comentario al respecto.

Saludos.

Foro - Perl en Español

Interactuar con programa lanzado desde Perl en Unix

Interactuar con programa lanzado desde Perl en Unix

Publicidad

Re: Interactuar con programa lanzado desde Perl en Unix

Re: Interactuar con programa lanzado desde Perl en Unix

¿Quién está conectado?