perl - 如何以隐藏的方式获取字符串

Question

我是 perl 新手

我想以隐形方式获取密码

示例：输入密码..？

**

它可以空格或任何其他符号

同时给出指定字符串的输入

即使是输入输入的人也不应该对其他人可见

有没有办法在 perl 中以隐藏的方式获取输入

Answer 1

通过 stty 命令使用系统功能。

print "Enter The Password : ";  
system ("stty -echo");  
my $password = <STDIN>;  
system ("stty echo");

chomp $password;

Answer 2

15.10 节：“读取密码”

使用 CPAN 模块Term::ReadKey，将输入模式设置为noecho，然后使用ReadLine：

use Term::ReadKey;

ReadMode('noecho');
$password = ReadLine(0);