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 ::提詞器已修補到包括特殊的歷史設定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;