How can I enter a password using Perl and replace the characters with '*'?

perl terminal passwords echo
Matthew Farwell picture Matthew Farwell · Mar 31, 2009 · Viewed 34.1k times · Source

I have a Perl script that requires the user to enter a password. How can I echo only '*' in place of the character that the user types, as they type it?

I'm using Windows XP/Vista.

Answer

Peter Stuifzand picture Peter Stuifzand · Apr 2, 2009

In the past I have used IO::Prompt for this.

use IO::Prompt;
my $password = prompt('Password:', -e => '*');
print "$password\n";

Related questions

Find size of an array in Perl

I seem to have come across several different ways to find the size of an array. What is the difference between these three methods? my @arr = (2); print scalar @arr; # First way to print array size print $#arr; # Second way to …

Read More
How do I break out of a loop in Perl?

I'm trying to use a break statement in a for loop, but since I'm also using strict subs in my Perl code, I'm getting an error saying: Bareword "break" not allowed while "strict subs" in use at ./final.pl line 154. …

Read More
How to fix a locale setting warning from Perl?

When I run perl, I get the warning: perl: warning: Setting locale failed. perl: warning: Please check that your locale settings: LANGUAGE = (unset), LC_ALL = (unset), LANG = "en_US.UTF-8" are supported and installed on your system. perl: warning: Falling …

Read More