Question

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

我们做了一些研究，发现ReadKey / Readline是另一种选择。但是，此软件包不是我们默认的Perl安装的一部分。

有没有办法在不使用终端或ReadKey / Readline的情况下在Perl中读取密码？

Answer 1

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

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

稍后，如果你必须回到正常的终端输入回声，请写下：

ReadMode(0);

此解决方案需要安装Term::ReadKey，它也适用于Windows。

Answer 2

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

有关使用Strawberry Perl安装CPAN模块的说明，请访问：