Perl: ввод с клавиатуры без отображения 0

Ну можно curses заюзать…

mfasakhov
Как в Perl ввести с клавиатуры строку, чтобы это не отображалось на экране.

close(STDOUT);

Эм… Потом открывать придётся :D

close(STDOUT) не помог :( :

close(STDOUT);

$ln=<>; # Все-равно ввод виден

print «$ln\n»; # Здесь ничего не выводит

http://darkeside.blogspot.com/2005/12/switching-off-terminal-echo-in-perl.html

Спасибо за ссылку, metal — заработало!

Всем спасибо за участие.

mfasakhov
Спасибо за ссылку, metal — заработало!

Всем спасибо за участие.

Ещё хотя бы один листинг в качестве иллюстрации способа решения проблемы — и действительно всё в порядке.

Сделал примерно так:

use Term::ReadKey;

sub InputUsername

{

print «Enter Username: »;

$username = ReadLine;

chomp $username;

}

sub InputPassword

{

print 'Password: ';

ReadMode 'noecho’;

$password = ReadLine;

ReadMode 'normal’;

chomp $password;

}