IO::Prompter - 是否可以禁用历史记录？

Question

是否可以在提示输入密码时从IO::Prompter 配置prompt 以不将输入添加到历史记录中？

#!/usr/local/bin/perl
use warnings;
use strict;
use 5.10.1;
use utf8;
use open qw( :encoding(UTF-8) :std );
use IO::Prompter;


my $password = prompt( 'Password: ', -echo => '' );
say $password;
$password = prompt( 'Password: ', -echo => '' );
say $password;
$password = prompt( 'Password: ', -echo => '' );
say $password;
$password = prompt( 'Password: ', -echo => '' );
say $password;
$password = prompt( 'Password: ', -echo => '' );
say $password;

Answer 1

当你写这个问题时这是不可能的，但是 IO::Prompter 已被修补以包含特殊的历史记录集 NONE ，它会禁用历史记录。

第一个版本的 IO::Prompter 补丁是 0.004003。

http://search.cpan.org/~dconway/IO-Prompter-0.004003/lib/IO/Prompter.pm

my $password = prompt('Password: ', -hNONE, -echo => '');

my $force_the_user_to_type = prompt('Type something: ', -hNONE);

Answer 2

如果你愿意使用其他模块，我建议Term::ReadKey

这是我编写的示例脚本，它将禁用回显以进行读取，读取一行并返回它接收到的内容以进行测试。

#!/usr/bin/perl

use strict;
use warnings;
use Term::ReadKey;

ReadMode 2;
my $pw;
print "Enter password ";
while ( not defined( $pw ) ) {
  $pw = ReadLine(-1); 
}
chomp $pw;
print "\nI got $pw entered\n";
ReadMode 0;