¿Cómo hacer que Perl use diferentes controladores para entrada de tubo y entrada de teclado?

Question

Tengo un script Perl procesando un conducto. En algún momento, me gustaría que el script se detenga y solicite la entrada del teclado del usuario. my $input = <STDIN>; no funciona. Simplemente lee la siguiente línea de la tubería. ¿Cómo puedo hacer que Perl use diferentes controladores para entrada de tubo y entrada de teclado?

Answer 1

Si se encuentra en una plataforma Unix, puede abrir una manejador de archivos en /dev/tty (o use IO::Pty).
Un buen ejemplo de trabajo con TTY está en "comprobar si un programa se ejecuta de forma interactiva" ejemplo aquí: http://pleac.sourceforge.net/pleac_perl/userinterfaces.html

También debe considerar hacer contraseña IO a través de Term::ReadKey (descrito en perlfaq8) - Creo que puede estar ligada a TTY en lugar de STDIO, pero no estoy seguro. Si no es así, use la solución TTY + Term :: ReadKey que se encuentra al final de this SO answer by brian d foy.

Aquí hay un ejemplo.

It's not the best style (doesn't use 3-arg form of open, nor uses lexical filehandles) pero debería funcionar.

use autodie; # Yay! No "or die '' " 
use Term::ReadKey; 
open(TTYOUT, ">/dev/tty"); 
print TTYOUT "Password?: "; 
close(TTYOUT); 
open(TTY, "</dev/tty"); 
ReadMode('noecho'); 
$password = ReadLine(0, *TTY);