如何在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";

它確實要求輸入密碼並且不回應答案，但它會跳過它后面的<STDIN>。 我想這是Term :: ReadPassword :: Win32中的一個錯誤，所以我想知道是否有另一個模塊在Windows上運行良好？

Answer 1

http://www.perlmonks.org/?node_id=886306報告相同的問題，並使用Term :: ReadKey提供備用的讀取密碼實現。 底層問題是Win32 :: Console中的這個錯誤 ，可以通過重新打開STDIN和/或STDOUT來解決。