Комментарий

Представьте себе богатые возможности команды stty - можно задать все, от служебных символов до управляющих комбинаций и перевода строки. Стандартный модуль POSIX обеспечивает прямой доступ к низкоуровневому терминальному интерфейсу и позволяет реализовать «-подобные возможности в ващей программе.

Программа из примера 15.2 показывает, какие управляющие символы используются ващим терминалом для стирания в предыдущей и текущей позиции курсора (вероятно, это клавищи «забой» и Ctrl+U). Затем она присваивает им исторические значения, # и @, и предлагает ввести какой-нибудь текст. В конце своей работы программа восстанавливает исходные значения управляющих символов.

Пример 15.2. demo

#1/usr/bin/perl -w

# Демонстрация работы с интерфейсом POSIX termios

use POSIX qw(-termios.h),

$term = POSIX;:Termios->new, $term->getattr(fileno(STDIN));

$erase = $term->getcc(VERASE), $kill = $term->getcc(VKILL),

printf Erase is character %d, %s\n, $erase, uncontrol(chr($erase)), printf Kill is character %d, %s\n , Skjll, uncontrol(chr($kill)),

$term->setcc(VERASE, ord(#)); $term->setcc(VKILL, ordC@)); $term->setattr(1, TCSANOW);

print(erase is #, kill is @, type something: ),

$line = <STDIN>;

print "You typed: $line";

$term->setcc(VERASE, $erase); $term->setcc(VKILL, Skill); Sterm->setattr(1, TCSANOW);

sub uncontrol {

local $ = shift,

s/([\200-\377])/sprintf( M-%c",ord(S1) & 0177)/eg; s/([\0-\37\177])/sprintfC%c",ord(S1) " OlOO)/eg; return $ ;

Следующий модуль, HotKey, реализует функцию read key на Perl. Он не обладает никакими преимуществами по сравнению с Тегш::Кеа(1Кеу, а всего лищь показывает интерфейс termios в действии:

# HotKey pm package HotKey;

@ISA = qw(Exporter),

EXPORT = qw(cbreak cooked readkey);

use strict;

use POSIX qw(:termios h);

my (Sterm, Soterm, Secho, Snoecho, $fd stdin);

$fd stdin = fileno(STDIN); Sterm = POSIX:.Termios->new(), Sterm->getattr($fd stdin); Soterm = $term->getlflag(),

Secho = ECHO ECHOK ICANON, Snoecho = Soterm & -Secho;

sub cbreak {

Sterm->setlflag($noecho); # Эхо-вывод не нужен Sterm->setcc(VTIME, 1), $term->setattr(Sfd stdin, TCSANOW);

sub cooked {

Sterm->setlflag(Soterm); $term->setcc(VTIME, 0), Sterm->setattr(Sfd stdin, TCSANOW);

sub readkey { my Skey = ; cbreak(),

sysread(STDIN, Skey, 1); cooked(); return Skey;

END { cookedO } 1,

> Смотри также-

Документация но стандартному модулю POSIX; рецепты 15.6; 15.9.

15.9. Проверка наличия входных данных

проблема

Требуется узнать, имеются ли необработанные входные данные, не выполняя их фактического чтения.

15.10. Ввод пароля

Проблема

Требуется прочитать данные с клавиатуры без эхо-вывода не экране. Например, вы хотите прочитать пароль так, как это делает passwd, то есть без отображения пароля пользователя.

Решение

Воспользуйтесь модулем Terra::ReadKey с CPAN, установите режим ввода noecho, после чего воспользуйтесь функцией ReadLine:

use Term ReadKey,

ReadMode noecho; $password = ReadLine 0;

Комментарий

Пример 15.3 показывает, как организовать проверку пароля пользователя. Если в ващей системе используются скрытые пароли, getpwuid вернет зашифрованный пароль лищь привилегированному пользователю. Всем остальным в соответствующем поле базы данных возвращается лищь *, что совершенно бесполезно при проверке пароля.

Решение

Воспользуйтесь модулем Term::ReadKey от CPAN и попытайтесь прочитать символ в неблокирующем режиме, для этого используется аргумент -1:

use Term:ReadKey, ReadMode (cbreak);

If (defined ($char = ReadKey(-l)) ) {

# Имеется необработанный ввод $char } else {

# Необработанного ввода нет

ReadMode (normal ); # Восстановить нормальные

# параметры терминала

Комментарий

Аргумент -1 функции ReadKey означает неблокирующее чтение символа. Если символа нет, ReadKey возвращает undef.

> Смотри также-

Документация по модулю Terin::ReadKey с CPAN; рецепт 15.6.