Атрибуты, распространяющиеся на несколько строк текста, могут привести в замешательство некоторые программы или устройства. Если у вас возникнут затруднения, либо вручную установите атрибуты в начале каждой строки, либо используйте colored, предварительно присвоив переменной $Term: :ANSIColor: :EACHLINE разделитель строк:

$Term::ANSIColor::EACHLINE = $/;

print colored(«EOF, RED, ON WHITE, BOLD, BLINK);

This way

each line

has Its own

attribute set.

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

Документация по модулю Terra::AnsiColor с CPAN.

15.6. Чтение с клавиатуры

Проблема

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

Решение

Воспользуйтесь модулем Тегш::Кеа(1Кеу с CPAN, чтобы перевести терминал в режим с break, прочитать символы из STDIN и затем вернуть терминал в обычный режим;

use Term:iReadKey;

ReadMode cbreak; Skey = ReadKey(O); ReadMode normal;

Комментарий

Модуль Тегш:;Кеас1Кеу может переводить терминал в разные режимы, cbreak лишь один из них. В этом режиме каждый символ становится доступным для программы сразу же после ввода (см. пример 15.1). Кроме того, в нем происходит эхо-вывод символов; пример режима без эхо-вывода рассматривается в рецепте 15.10.

Пример 15.1. sascii

#/usr/bin/perl -w

# sascii - Вывод ASCII-кодов для нажимаемых клавиш use Term::ReadKey;

ReadMode(cbreak):

print "Press keys to see their ASCII values. Use Ctrl-C to quit \n";

while (1) {

Schar = ReadKey(O);

last unless defined Schar;

printf(" Decimal; %d\tHex; %x\n", ord($char), ord($char));

ReadMode(normal);

Режим cbreak не мещает драйверу терминала интерпретировать символы конца файла и управления. Если вы хотите, чтобы ваша программа могла прочитать комбинации Ctrl-bC (обычно посылает процессу SIGINT) или Ctrl+D (признак конца файла в UNIX), используйте режим raw.

Вызов ReadKey с нулевым аргументом означает, что мы хотим выполнить нормальное чтение функцией gate. При отсутствии входных данных программа ожидает их появления. Кроме того, можно передать аргумент -1 (неблокирующее чтение) или положительное число, которое определяет тайм-аут (продолжительность ожидания в целых секундах; дробные значения секунд не допускаются). Неблокирующее чтение и чтение с тайм-аутом возвращает либо undef при отсутствии входных данных, либо строку нулевой длины при достижении конца файла.

Последние версии Term::ReadKey также включают ограниченную поддержку систем, не входящих в семейство UNIX.

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

Документация по модулю Term::ReadKey с CPAN; рецепты 15.8-15.9. Функции getc и sysread описаны вperlfunc(l).

15.7. Предупреждающие сигналы

Проблема

Требуется выдать предупреждающий сигнал на терминале пользователя.

Решение

Воспользуйтесь символом \а" для выдачи звукового сигнала:

print "\aWake up!\n";

Другой вариант - воспользуйтесь средством терминала "vb" для выдачи визуального сигнала:

use Term::Сар;

SOSPEED = 9600; eval {

require POSIX;

my Stermios = POSIX::Termios->new();

$terniios->getattr,

$OSPEED = $termios->getospeed;

Sterminal = Term:.Cap->Tgetent({OSPEED=>$OSPEED}), $vb = •; eval {

$terminal->TrequireC vb ),

$vb = $terminal->Tputs(vb, 1),

print $vb; # Визуальный сигнал

Комментарий

Служебный символ "\а" - то же самое, что и "\cG", "\007" и "\х07". Все эти обозначения относятся к символу ASCII BEL, который выдает на терминал противный звонок. Вам не приходилось бывать в переполненном терминальном классе в конце семестра, когда десятки новичков одновременно пытаются перевести vi в режим ввода? От этой какофонии можно сойти с ума. Чтобы не злить окружающих, можно использовать визуальные сигналы. Идея проста: терминал должен показывать, а не звучать (по крайней мере, не в многолюдных помещениях). Некоторые терминалы вместо звукового сигнала позволяют на короткое время поменять цвет символов с цветом фона, чтобы мерцание привлекло внимание пользователя.

Визуальные сигналы поддерживаются не всеми терминалами, поэтому мы включили их вызов в eval. Если визуальный сигнал не поддерживается, Trequire инициирует die, при этом переменная $vb останется равной ". В противном случае переменной $vb присваивается служебная последовательность для выдачи сигнала.

Более разумный подход к выдаче сигналов реализован в графических терминальных системах (таких, как xterm). Многие из них позволяют включить визуальные сигналы на уровне внещнего приложения, чтобы программа, тупо выводящая chr(7), была менее щумной.

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

Раздел «Quote и Quote-like Operators* врег1ор(1); документация по стандартному модулю Тегш::Сар.

15.8. Использование termios

Проблема

Вы хотите напрямую работать с характеристиками своего терминала.

Решение

Воспользуйтесь интерфейсом POSIX termios.