如何在不显示终端中的密码的情况下提示用户输入密码?有一个类似的问题如何使用Perl输入密码并用'*'替换字符?,但回答似乎已过时或失效。
我正在寻找这个问题的答案,并不满意后面结果页面上与其他相关问题有关的答案。
此外,perlfaq8 有一个不完整的示例(哦,谁曾经维护它;)。
我正在寻找这个问题的答案,并不满意后面结果页面上与其他相关问题有关的答案。
此外,perlfaq8 有一个不完整的示例(哦,谁曾经维护它;)。
use Term::ReadKey;
ReadMode('noecho');
my $password = ReadLine(0);
如果您不重置终端,那么就没有其他回显了!哎呀!
我还在寻找新的答案或模块,可以提供给想要做这件事的人。
print "请输入密码:"; ReadMode('noecho'); my $pass=ReadLine(0); chomp($pass); $request->authorization_basic('用户名', $pass);
- MacMartin