15.18. Программа: tcapdemo 551

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

Документация по модулю Win32::Process, входящая в поставки Perl для систем Microsoft Windows.

15.18. Программа: tcapdemo

Описание

Следующая программа очищает экран и рисует на нем до тех пор, пока не будет прервана. Она показывает, как использовать модуль Тегт::Сар для очистки экрана, перемещения курсора и записи в любую позицию экрана. В ней также используется рецепт 16.6.

Пример 15.9. tcapdemo

#!/usr/bin/perl -w

# tcapdemo - прямое позиционирование курсора

use POSIX; use Term-:Cap;

initO, # Инициализация Term:Сар,

zipO; # Рисование линий на экране.

finishO, # Последующая очистка.

exitO;

# Две вспомогательные функции Смысл clear screen очевиден, а

# clear end очищает до конца экрана.

sub clear screen { $tcap->Tputs(сГ, 1, «ВТООиТ) } sub clear end { $tcap->Tputs(cd, 1, «ВТОООТ) }

# Переместить курсор в конкретную позицию, sub gotoxy {

П)у($х, $у) = @ ;

$tcap->Tgoto(cm, $х, $у, .STDOUT);

# Определить скорость терминала через модуль POSIX и использовать

# для инициализации Term:;Cap. sub init {

$1 = 1;

Sdelay = (shiftO 0) . 0.005;

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

Stermios->getattr;

my Sospeed = Stermios->getospeed;

Stcap = Term-Cap->Tgetent ({ TERM => undef, OSPEED => Sospeed }); Stcap->Trequire(qw(cl cm cd));

until Sinterrupted,

# Очистить экран sub finish {

gotoxy(0, Smaxrow),

clear end(),

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

Документация по стандартному модулю Term::Cap; termcap(5) (если есть).

15.19. Программа: tkshufflepod

Эта короткая программа с помощью Тк выводит список всех заголовков =head1 в файле и позволяет изменить порядок их следования перетаскиванием. Клавища S сохраняет изменения, а q завершает программу. Двойной щелчок на элемен-

Пример 15.9 (продолжение)

# Рисовать линии на экране, пока пользователь

# не нажмет Ctrl-С sub zip {

clear screen(),

(Smaxrow, Smaxcol) = ($tcap->{ li} - 1, $tcap->{ co} - 1),

©chars = qw(. - / I \ ),

sub circle { push(@chars shift ©chars), }

Sinterrupted = 0,

$SIG{INT} = sub { ++$interrupted },

Scol = Srow = 0,

($row sign, $col sign) =(11),

do {

gotoxy(Scol Srow) print Schars[0]

select(undef, undef, undef Sdelay)

Srow += $row sign, Scol += $col sign,

If (Srow == Smaxrow) { $row sign = -1 circle }

elsif (Srow == 0 ) { Srow sign = +i, circle, }

if (Scol == Smaxcol) { $col sign = -1 circle, ) elsif (Scol == 0 ) { $col sign = +1 circle )

те списка выводит его содержимое в элементе Pod. Текст раздела записывается во временный файл, находящийся в каталоге /tmp; файл удаляется при уничтожении элемента Pod.

При запуске программе передается имя просматриваемого pod-файла:

% tkshufflepod chap15 pod

Мы часто использовали эту программу при работе над книгой. Исходный текст программы приведен в примере 15.10.

Пример 15.10. tkshufflepod

#1/usr/bin/perl -w

# tkshufflepod - изменение порядка разделов =head1 в pod-файле

use Тк use strict,

# declare variables

my Spodfile, # Имя открываемого файла

my $m, # Главное окно

my $1, # Элемент Listbox

my ($up, $down) # Перемещаемые позиции

my ©sections, # Список разделов pod

my $all pod # Текст pod-файла (используется при чтении)

# Прочитать pod-файл в память и разбить его на разделы Spodfile = shift II - ,

undef $/

open(F, < Spodfile )

or die Can t open Spodfile S\n Sall pod = <F>, close(F)

©sections = split(/(?==head1)/, $all pod),

# Превратить ©sections в массив анонимных массивов Первый элемент

# каждого массива содержит исходный текст сообщения а второй -

# текст следующий за =head1 (заголовок раздела)

foreach (©sections) { /( *)/,

S = [ S , SI ]

# Запустить Тк и вывести список разделов Sm = MainWindow->new(),

SI = Sm->Listbox( -width => 60)->pack( -expand => 1, -fill => both ),