554 Глава 15 • Пользовательские интерфейсы Пример 15.10 (продолжение)

foreach my Ssection (©sections) { $l->insert("end", $section->[1]);

# Разрешить перетаскивание для элемента Listbox. $l->bind( <Any-Button> => \&down ); $l->bind( <Any-ButtonRelease> => \&up );

# Разрешить просмотр при двойном щелчке $l->bind( <Double-Button> => \&view );

# q завершает программу, a s сохраняет изменения. $m->bind( <q>- => sub { exit } );

$m->bind( <s> => \&save );

MainLoop;

Й down(widget); вызывается, когда пользователь щелкает в Listbox

sub down {

my Sself = shift;

Sdown = Sself->curselection;;

# up(widget); вызывается, когда пользователь отпускает

# кнопку мыши в Listbox.

sub up {

my Sself = shift; my Selt;

Sup = Sself->curselection;,

return if Sdown == Sup;

# change selection list Selt = Ssections[$down]; splice(@sections, Sdown, 1); splice(@sections. Sup, 0, Selt); $self->delete(Sdown); $self->insert(Sup, Ssections[Sup]->[1]);

>

# save(widget): сохранение списка разделов.

sub save {

my Sself = shift;

open(F, > Spodfile")

or die "Cant open Spodfile for writing: S"; print F map { S ->[0] } ©sections; close F;

exit;

# view(widget): вывод раздела. Использует элемент Pod.

sub view {

my Sself = shift;

my Stemporary = "/tmp/SS-section.pod"; my Spopup;

open(F, "> Stemporary")

or warn ("Cant open Stemporary ; S!\n"), return; print F Ssections[Sdown]->[0]; close(F);

Spopup = Sm->Pod(-file => Stemporary);

Spopup->bind(<Destroy> => sub { unlink Stemporary } );

Управление процессами и межпроцессные взаимодействия

Это задета тк раз па три трубки. Я прошу вас минут пятьдесят пе разговаривать со мной

Шерлок Холмс, Союз рыжих»

Введение

Многие из нас относятся к Perl по-своему, но большинство считает его чем-то вроде «клея», объединяюшего разнородные компоненты. Эта глава носвян(ена командам и отдельным процессам - их созданию, взаимодействшо и завершению. Итак, речь пойдет о системном программировании.

В области системного программирования на Perl, как обычно, все простое уп-рошается, а все сложное становится достушгым. Если вы хотите работать на высоком уровне, Perl с радостью вам поможет. Если вы собираетесь закатать рукава и заняться низкоуровневым программировашюм, уподобившись хакерам С, - что ж, возможно и это.

Perl позволяет очень близко подобраться к системе, по при этом могут возникнуть некоторые проблемы переносимости. Из всей книги эта глава в наибольшей степени ориентирована на UNIX. Изложенный материал чрезвычайно полезен для тех, кто работает в UNIX-системах, и в меньше!! степени - для всех остальных. Рассматриваемые в ней возможности !!е являются универсальными, как, например, строки, числа или базовая арифметика. Большинство базовых операций более !тли ме1!ее одинаково работает !1овс!оду. Но если вы !!е работаете в системе семейства UNIX или другой POSIX-совместимой системе, многие интересные воз-мож!ЮСТИ у вас будут работать иначе (или не будут работать вообще). В сом!!итель-ных ситуациях обращайтесь к до!<;умептации, прилагаемой к вашей версии Perl.

Создание процессов

в этой главе рассматриваются порожденные процессы. Иногда вы !ipocTo выполняете автономную кома!1ду (с помощь!о system) и оставляете созданный процесс !!а произвол судьбы. В других случаях приходится сохранять тесну!о связь с созданным процессом, скармливать ему тщательно отфильтрованные даш!ые или уп-