Как запросить пароль на консоли Windows в скрипте Perl?

Question

Я попробовал следующий код

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";

Он действительно запрашивает пароль и не повторяет ответ, но затем пропускает , следующий за ним. Я думаю, что это ошибка в Term :: ReadPassword :: Win32, поэтому мне интересно, есть ли другой модуль, который хорошо работает в Windows?

Answer 1

http://www.perlmonks.org/?node_id=886306 сообщает об этой же проблеме и предоставляет альтернативную реализацию пароля для чтения, используя Term :: ReadKey.Основной проблемой является эта ошибка в Win32 :: Console , которую можно обойти, открыв STDIN и / или STDOUT.