如何在Perl脚本中的Windows控制台上输入密码？

发布时间：2020-12-15 21:48:15 所属栏目：大数据来源：网络整理

导读：我尝试了以下代码 use strict; use warnings;use Term::ReadPassword::Win32 qw(read_password);my $pw = read_password('pw: ');print "pw $pwn";my $x = STDIN;print "x: $xn"; 它确实要求输入密码并且不回应答案,但它会跳过 STDIN紧随其后.我想这是Term

我尝试了以下代码

use strict; 
use warnings;

use Term::ReadPassword::Win32 qw(read_password);

my $pw = read_password('pw: ');
print "pw $pwn";
my $x = <STDIN>;
print "x: $xn";

它确实要求输入密码并且不回应答案,但它会跳过< STDIN>紧随其后.我想这是Term :: ReadPassword :: Win32中的一个错误,所以我想知道是否有另一个模块在Windows上运行良好？

解决方法

http://www.perlmonks.org/?node_id=886306报告相同的问题,并使用Term :: ReadKey提供备用的读取密码实现.根本问题是 this bug in Win32::Console,可以通过重新打开STDIN和/或STDOUT来解决.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!