comment on

You could also just use Term::ReadKey. I've used it on Win2k, XP, and Vista. It's clumsy to use, but I stuffed it into a utility module I use, like so:

my $pword = get_pword( "Enter password" );
print "Password is '$pword'\n";

sub get_pword {
    use Term::ReadKey;

    my ($prompt) = shift; 
    my $pword;
    my $key;
    local $| = 1;  # Turn off STDOUT buffering for immediate response
    print "$prompt: ";
    ReadMode 4;    # Change to Raw Mode, disable Ctrl-C
    while( 1 ) {
        while (not defined ($key = ReadKey(-1))) { }
        if(ord($key) == 13) { # if Enter was pressed...
            print "\n";       # print a newline
            last;             # and get out of here
        }
        print '*';
        $pword .= $key;
    }
    ReadMode 0; # Reset tty mode before exiting. <==IMPORTANT
    return $pword; 
}
[download]

Also, Term::ReadKey comes standard with Perl.

--marmot

UPDATE: Fixed a sorta bug. Accidentally introduced an extraneous while loop when I copied the code. Didn't hurt anything but my pride...

In reply to Re: Term::ReadPassword::Win32 kills STDIN by furry_marmot
in thread Term::ReadPassword::Win32 kills STDIN by Gulliver

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.


Just another Perl shrine
	PerlMonks