?

Log in

Previous Entry | Next Entry

Сьогодні задався цілью знайти спосіби як в звичайний perl-скрипт вставити запрос паролю. Взагалі, погодьтесь, річ звичайна.
Отже очевидним і найпростішив виявився метод просто вимкнути вивід на екран будь-чого, що вводить користувач (так само наприклад,  коли ви вводите пароль в Linux чи Unix систему в консолі):


  1. system "stty -echo";
    print "Password: ";
    chomp($passwd = <STDIN>);
    print "\n";
    system "stty echo";
    print $passwd;

  2. або:

  3. use Term::ReadKey;

    system "stty -echo";
    print "Password: ";
    $passwd = ReadLine(0);
    print "\n";
    system "stty echo";
    print $passwd;

Але мене цікавило як зробити так щоб замість букв виводити якийсь знак (наприклад "*"). Через деякий час пошук дав позитивний результат. Прошу подивитися на цей практично досконалий код:
    use IO::Prompt;

    $passwd = prompt -echo=>'*', 'Password: ';
    print $passwd;
Reference:

Profile

camel
ua_perl
Розробка на мові Perl

Latest Month

червень 2008
S M T W T F S
1234567
891011121314
15161718192021
22232425262728
2930     
Розроблено LiveJournal.com
Designed by Tiffany Chow