die "usage:

initscrO; noecho(); cbreakO; nodelay(l);

[ -timeout ] cmd args\n" unless @ARGV;

# Инициализировать экран

# Чтобы функция getchO выполнялась без блокировки

$SIG{INT} = sub { done("Ouch!") }; sub done { endwinO; print "@ \n"; exit; }

while (1) {

while ((my $key = getch()) ne ERR) { done("See ya") if $key eq q

my ©data = (@ARGV) 2>&1; for (my $i =0; $i < $LINES; $i++) {

addstr($i, 0, $data[$i] 1 x $COLS);

standoutO;

addstr($LINES-1, $COLS - 24, scalar localtime); standendO;

# Возможен ввод

# нескольких символов

# Вывод+ошибки

move(0,0); refresh();

# Обновить экран

my ($in, Sout) = ( , );

vec($in, fileno(STDIN),1) = 1; # Искать символ в stdin

select($out = $in,undef,undef,$timeout);# Ожидание

С помощью Curses можно узнать, когда пользователь нажал клавишу со стрелкой или служебную клавишу (например, Ноше или Insert). Обычно это вызывает затруднения, поскольку эти клавиши кодируются несколькими байтами. С Curses все просто:

keypad(l);

$кеу = getchO;

If ($кеу eq к $кеу eq "\сР" $кеу eq KEY UP)

# Включить режим ввода й с цифровой клавиатуры

# Режим vi

# Режим emacs

# Стрелка

# Обработать клавишу

Другие функции Curses позволяют читать текст в определенной позиции экрана, управлять выделением символов и даже работать в нескольких окнах.

Модуль рег1шепи, также хранящийся на CPAN, построен на базе низкоуровневого модуля Curses. Он обеспечивает высокоуровневые операции с меню и экранными формами. Приведем пример экранной формы из поставки рег1шепи:

Addr City

[ ]

[ ]

[ ] State-. [ ] Zip: [\\\\\]

Phone: (\\\) \\\-\\\\ Password: []

Enter all information available.

Edit fields with left/right arrow heys or "delete".

Switch fields with "Tab" or up/down arrow keys.

Indicate completion by pressing "Return".

Refresh screen with "Control-L".

Abort this demo here with "Control-X".

Пользователь вводит текст в соответствующих полях. Обычный текст обозначается символами подчеркивания, числовые данные - символами \, а неотобра-жаемые данные - символами ". Такие обозначения напоминают форматы Perl, за исключением того, что формы предназначены для вывода, а не для ввода данных.

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

Man-страница curses{3) ващей системы (если есть); документация по модулям Curses и perlmenu с CPAN; раздел «Formats»per orw(l); рецепт 3.10.

15.13. Управление другой программой с помощью Expect

Проблема

Вы хотите автоматизировать процесс взаимодействия с полноэкранной программой, которая работает с терминалом, не ограничиваясь STDIN и STDOUT.

Решение

Воспользуйтесь модулем Expect с CPAN;

use Expect;

Scommand = Expect->spawn("program to run") or die "Couldnt start program: $!\n";

# Запретить вывод программы в STDOUT Scommand->log stdout(0);

# 10 секунд подождать появления "Password:" unless (Scommand->expect(10, "Password")) {

# Тайм-аут

Template Entry Demonstration

Address Data Example Record #

Name

# 20 секунд подождать вывода текста, совпадающего с /[ILJogin: ?/ unless ($commanc(->expect(20, -re => [lUogm: {

# Таймаут

# Бесконечно долго ждать появления "invalid" unless ($command->expect(undef, "invalid")) {

tt Произошла ошибка; вероятно, работа программы нарушена

# Послать программе "Hello, world" и перевод строки print $command "Hello, world\n";

# Если программа завершается сама, предоставить ей такую возможность $command->soft close();

# Если программа должна быть закрыта извне, завершить ее $command->hard close();

Комментарий

Для работы модуля Expect необходимы два других модуля с CPAN: IO::Pty и IO:Stty. Expect создает псевдотерминал для взаимодействия с программами, которые непременно должны общаться с драйвером терминального устройства. Такая возможность часто используется для изменения пароля в программе passwd. К числу других программ, для которых также необходим настоящий терминал, принадлежат telnet (модуль Net::Telnet из рецепта 18.6 более функционален и обладает улучшенной переносимостью) и ftp.

Запустите нужную программу с помощью Expect->spawn, передайте ей имя программы и аргументы - либо в виде одной строки, либо в виде списка. Expect запускает программу и возвращает либо представляющий ее объект, либо undef, если запустить программу не удалось.

Для ожидания вывода программой конкретной строки применяется метод expect. Его первый аргумент равен либо числу секунд, в течение которых ожидается вывод строки, либо undef для бесконечного ожидания. Ожидаемая строка является вторым аргументом expect. Чтобы определить ее с помощью регулярного выражения, передайте в качестве второго аргумента строку "-re", а третьего - строку с шаблоном. Затем можно передать другие строки или шаблоны:

$which = $command->expect(30, "invalid", "succes", "error", "boom"); if ($which) (

# Найдена одна из указанных строк

В скалярном контексте expect возвращает номер аргумента, для которого произошло совпадение. В предыдущем примере expect вернет 1 при выдаче программой строки "invalid", 2 - при выводе "succes" и т. д. Если ни одна строка или щаблон не совпали, expect возвращает false.