13.13. Использование циклических структур данных 479

use Exporter (); use vars qw(@ISA ©EXPORT); MSA = qw(Exporter); ©EXPORT = qwCmkattr); sub mkattr {

my Shispack = callerO; for my $attr (© ) {

my($field, Smethod); Smethod = "${hispaGk};;$attr"; ($field = Smethod) =" s/:/ /g; no strict refs; •Smethod = sub { my Sself = shift;

confess "too many arguments" if © > 1; $self->{$field} = shift if © ; return $self->{$field};

В этом случае $self->{Person age} и $self->{Employee age} остаются раздельными. Единственная странность заключается в том, что $ob]->age даст лишь первый из двух атрибутов. В принципе атрибуты можно было бы различать с помощью формулировок $оЬ] ->Person:: age и $ob] ->Employee;: age, но грамотно написанный код Perl не должен ссылаться на конкретный пакет с помощью ; ;, за исключением крайних случаев. Если это оказывается неизбежным, вероятно, ваша библиотека спроектирована не лучшим образом.

Если вам не нравится подобная запись, то внутри гсласса Person достаточно использовать age($self), и вы всегда получите age класса Person, тогда как в классе Employee age($self) дает версию age класса Employee. Это объясняется тем, что мы вызываем функцию, а не метода.

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

Документация по директивам use fields и use base для Perl версии 5.005; рецепт 10.14.

13.13. Использование циклических структур данных

Проблема

Имеется структура данных, построенная на циклических ссылках. Система сборки мусора Perl, использующая подсчет ссылок, не заметит, когда данная структура перестает использоваться. Вы хотите предотвратить утечки памяти в программе.

Решение

Создайте не-циклический объект-контейнер, содержащий указатель на структуру данных с циклическими ссылками. Определите для объекта-контейнера метод DESTROY, который вручную уничтожает циклические ссылки.

Комментарий

Многие интересные структуры данных содержат ссылки на самих себя. Например, это может происходить в простейщем коде:

$node->{NEXT-} = $node;

Как только в ващей программе встречается такая команда, возникает цикличность, которая скрывает структуру данных от системы сборки мусора Perl с подсчетом ссылок. В итоге деструкторы будут вызваны при выходе из программы, но иногда ждать долго не хочется.

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

Проблема не решается и созданием узлов, представляющих собой экземпляры специального класса Ring. На самом деле мы хотим, чтобы данная структура уничтожалась Perl по общим правилам - а это произойдет в том случае, если объект реализуется в виде структуры, содержащей ссылку на цикл. В следующем примере ссылка хранится в поле DUMMY":

package Ring;

# Вернуть пустую циклическую структуру sub new {

my Sclass = shift;

my Snode = { };

Snode->{NEXT} = Snode->{PREV} = Snode; my Sself = { DUMMY => Snode, COUN.T => 0 }; bless Sself, Sclass, return Sself;

Цикличностью обладают узлы кольца, но не сам возвращаемый объект-кольцо. Следовательно, следующий фрагмент не вызовет утечек памяти:

use Ring;

SCOUNT = 1000; for (1 .. 20) {

my Sr = Ring->new();

for (Si =0, Si < SCOUNT; Si++) { $r->insert(Si) }

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

13.13. Использование циклических структур данных 481

покоиться об освобождении памяти в большей степени, чем для простых строк. Иначе говоря, все происходит автоматически, как и должно происходить.

Однако при реализации класса необходимо написать деструктор, который вручную уничтожает узлы:

# При уничтожении Ring уничтожить содержащуюся в нем кольцевую структуру sub DESTROY {

my Sring = shift; my $node;

for ( $node = $ring->{DUMMY}->{NEXT}; $node 1= $ring->{DUMMY}; $node = $node->{NEXT) )

$ring->delete node($node);

$node->{PREV} = $node->{NEXT) = undef;

# Удалить узел из циклической структуры sub delete node {

my (Sring, $node) = @ \ $node->{PREV}->{NEXT} = $node->{NEXT); $node->{NEXT)->{PREV) = $node->{PREV}; -$ring->{COUNT}:

Ниже приведено еше несколько методов, которые следовало бы включить в класс. Обратите внимание на то, что вся реальная работа выполняется с помощью циклических ссылок, скрытых внутри объекта:

# $node = $ring->search( $value ) : найти $value в структуре $ring sub search {

my ($ring, lvalue) = @ ;

my $node = $ring->{DUMMY}->{NEXT},

while ($node i= $ring->{DUMMY} && $node->{VALUE} != Svalue) { $node = $node->{NEXT);

return $node;

tt $ring->insert( $value ) : вставить $value в структуру $ring sub insert value {

my ($ring, Svalue) = @ ;

my Snode = { VALUE => Svalue };

$node->{NEXT) = $ring->{DUMMY}->{NEXT};

$ring->{DUMMY}->{NEXT}->{PREV} = Snode;

Sring->{DUMMY}->{NEXT) = Snode;

$node->{PREV} = $ring->{DUMMY};

++Sring->{COUNT};