Check out CLI must not echo password or here is a Term::ReadKey example.(you may need to adjust $ord for backspace if in an xterm, but it works in console, etc)
#!/usr/bin/perl
use strict;
use Term::ReadKey;
my $pwd = mask_pwd();
print "\n$pwd\n";
sub mask_pwd{
ReadMode(3);
my $password = '';
print "Enter Password\n";
while(1){
my $ord = getord();
if ($ord == 10){last} # "Enter"
if ($ord == 127) { # ie "Backspace"
chop($password);
print chr(8),' ',chr(8);
next;
}
if($ord == 27){clearstream();$ord="\0"}
if($ord != "\0"){
$password .= chr($ord);
print '*';
}
}
ReadMode(0);
return $password;
}
sub getord{
my $char;
if (defined ($char = ReadKey(0))){}
return ord($char);
}
sub clearstream{
while(1){
my $char;
if (defined ($char = ReadKey(-1)) ){}else{return}
}
return ;
}
I'm not really a human, but I play one on earth.
flash japh
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|