On Windows XP with ActiveState, I've used:
use Term::ReadKey; print "Password: "; my $password = GetPass(); print "$password\n"; sub GetPass { # No echo password ReadMode 2; chomp(my $opt = <STDIN>); ReadMode 0; print "\n"; return $opt }
In reply to Re: masking password entry
by VinsWorldcom
in thread masking password entry
by obonaventure
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |