Haim Ashkenazi wrote:
>
> Hi
Hello,
> I'm writing a script on windows that's intended to run on windows (well, I
> don't have windows at home so...), and I'm looking for something to replace
> the "stty -echo" command on linux:
>
> print "Password: ";
> system "stty -echo"; # disable echo
> chomp (my $pass = <STDIN>);
> system "stty echo"; # enable echo
>
> any ideas?
perldoc -q password
Found in /usr/lib/perl5/5.6.0/pod/perlfaq8.pod
How do I ask the user for a password?
(This question has nothing to do with the web. See a
different FAQ for that.)
There's an example of this in the crypt entry in the
perlfunc manpage). First, you put the terminal into "no
echo" mode, then just read the password normally. You may
do this with an old-style ioctl() function, POSIX terminal
control (see the POSIX manpage, and Chapter 7 of the
Camel), or a call to the stty program, with varying
degrees of portability.
You can also do this for most systems using the
Term::ReadKey module from CPAN, which is easier to use and
in theory more portable.
use Term::ReadKey;
ReadMode('noecho');
$password = ReadLine(0);
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
