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

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

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?

6
задан szabgab 18 January 2012 в 14:13
поделиться