在Windows上使用Perl读取密码而不使用CPAN包

我们有一个Perl脚本，它使用终端读取密码。此脚本在Windows上不工作，因为终端不可用

我们做了一些研究，发现ReadKey/Readline是一种替代方案。但是，这个包不是默认Perl安装的一部分

---

是否有一种不用终端或ReadKey/Readline读取Perl密码的方法？

如果您正在寻找一种不用在终端中回显而获取密码的方法，请尝试以下方法：

use Term::ReadKey;
print "Enter password:";
ReadMode('noecho'); 
my $password = <STDIN>;
chomp($password);

---

此解决方案需要安装Windows，并且也适用于Windows。

有关使用ActivePerl安装CPAN模块的说明，请参见：

---

有关使用草莓Perl安装CPAN模块的说明，请参见：

---

您在Windows上使用的是哪个Perl发行版？是ActivePerl还是草莓Perl？“没有CPAN包？”。。。简短的回答是否定的。

ReadMode(0);