windows - 如何在 Perl 脚本中的 Windows 控制台上询问密码？

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 提供替代的读取密码实现。根本问题是 this bug in Win32::Console ，这可以通过重新打开 STDIN 和/或 STDOUT 来解决。