2011-06-09 13 views
14

estoy tratando de ejecutar un binario utilizando el siguiente comando:¿Cómo esperar la pulsación de la tecla en la secuencia de comandos de Perl?

system("update"); 

Después de ejecutar el comando "update", el sistema solicita el siguiente:

"Press ENTER to exit:" 

¿Cómo implementar lo anterior en mi Perl ¿guión?

+0

Qué quiere decir usted quiere también poner en práctica una ventana similar o usted quiere ser capaz de responder demasiado demasiado el símbolo? – drnewman

Respuesta

21
use strict; 
use warnings; 

print "Press ENTER to exit:"; 
<STDIN>; 
+1

También puede tener que establecer '$ |' en algo que no sea 'undef' o' 0'. De lo contrario, la salida se amortigua y, dependiendo del sistema, es posible que no haga lo que usted desea. –

+0

La salida del terminal no se almacena en el búfer. ¿Me estoy perdiendo de algo? – SuperDuperApps

1
#! usr/bin/perl 
print "How old are you?"; 
$age = <>; 
print "WOW! You are $age years old!"; 
Cuestiones relacionadas