Come chiedere la password sulla console di Windows in uno script Perl?

Question

Ho provato il seguente codice

use strict; 
use warnings; 

use Term::ReadPassword::Win32 qw(read_password); 

my $pw = read_password('pw: '); 
print "pw $pw\n"; 
my $x = <STDIN>; 
print "x: $x\n"; 

Si chiede infatti una password e non eco la risposta, ma poi salta sopra la < STDIN> che lo segue. Immagino che questo sia un bug in Term :: ReadPassword :: Win32 quindi mi chiedo se c'è un altro modulo che funziona bene su Windows?

Answer 1

http://www.perlmonks.org/?node_id=886306 riporta lo stesso problema e fornisce un'implementazione di lettura-password alternativa utilizzando Term :: ReadKey. Il problema sottostante è this bug in Win32::Console, che può essere risolto riavviando STDIN e/o STDOUT.