Дерево каталогов Nested Sets (вложенные множества) ч.2 (1)

В предыдущей статье мы рассмотрели теорию управления Nested Sets. Теперь попробуем собрать на её основе модуль Perl для работы.

Для начала, определим, сам объект:

package MyModule::NestedSets;
use strict; use warnings; use Carp;
require Exporter;
our @ISA = qw(Exporter);

sub new {
my $self = shift;
$self = {
id => 'id',
left => 'left_key',
right => 'right_key',
level => 'level',
table => undef,
DBI => undef,
};
bless $self;
return $self;
}

Где:

• $self->{'id'} - имя поля идентификатора узла таблицы;
• $self->{'left'} - имя поля левого ключа узла таблицы;
• $self->{'right'} - имя поля правого ключа узла таблицы;
• $self->{'level'} - имя поля уровня узла таблицы;
• $self->{'table'} - имя таблицы;
• $self->{'DBI'} - ссылка на объект DBI модуля - подключение к;

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

Теперь нужно определить какие методы мы будем применять к объекту.

• создание узла;
• удаление узла;
• перемещение узла, подразделяющееся на:
  • установка узла в подчинение другому;
  • установка узла рядом с другим (впереди - за ним);
  • изменение уровня узла (выше, ниже на уровень);

Так же, существует реальная потребность в том, что бы хранить несколько деревьев в одной таблице (далее по тексту: "мультидерево"). Например, если существует два и более раздельных каталогов товаров. Для определения того, одно или несколько разных деревьев в таблице добавим в наш объект еще два свойства:

...
$self = {
...
type => 'N',
multi => 'class',
};
...

Где:

• $self->{'type'} - Флаг определения статуса таблицы (N - одно дерево, M - несколько деревьев);
• $self->{'multi'} - имя поля идентификатора дерева таблицы;

Объявление объекта можно производить так:

...
use MyModule::NestedSets;
my $nested = new MyModule::NestedSets;
$nested->{'table'} = 'catalog_category';
$nested->{'type'} = 'M';
$nested->{'DBI'} = $dbh; # $dbh должен быть уже определен как класс DBI
...

Или, дабы упростить объявление:

...
use MyModule::NestedSets;
my $nested = new MyModule::NestedSets {table=>'catalog_category', type=>'multi', DBI=>$dbh};
...

Но при этом в процедуре - new модуля, нужно дополнительно обработать данные:

sub new {
my ($self, $common) = @_;
$self = {
...
};
$self->{'type'} = $$common{'type'} && $$common{'type'} eq 'multi' ? 'M' : 'N';
$self->{'left'} = $$common{'left'} || $$common{'left'};
$self->{'right'} = $$common{'right'} || $$common{'right'};
$self->{'level'} = $$common{'level'} || $$common{'level'};
$self->{'multi'} = $$common{'multi'} || $$common{'multi'};
$self->{'table'} = $$common{'table'} || $$common{'table'};
$self->{'DBI'} = $$common{'DBI'} || $$common{'DBI'};
bless $self;
return $self;
}

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

Сама таблица будет выглядеть так:

CREATE TABLE `catalog_category` (
`id` int(11) NOT NULL auto_increment,
`left_key` int(11) NOT NULL default '0',
`right_key` int(11) NOT NULL default '0',
`level` int(11) NOT NULL default '1',
`class` int(11) NOT NULL default '1',
`name` varchar(100),
...
`note` varchar(100),
PRIMARY KEY (`id`),
KEY `child` (`id`,`left_key`,`right_key`,`class`)
);

Соответственно, если в таблице будет только лишь одно дерево, то поле class - не нужно.

Теперь можно перейти непосредственно к методам нашего объекта:

1. Создание узла

Как показывает практика, иногда требуется создавать узел в начале списка, а иногда - в конце. Причем данный параметр может распространяться как на все дерево, так и непосредственно только на конкретную операцию создания (перемещения). Поэтому добавим еще одно свойство объекта, которое мы будем определять во время его объявления, а так же сделаем возможность указывать данный параметр, во время операции. Изменяем процедуру new модуля:

Для того, что бы создать узел, нам нужны следующие данные:

• подчинение (родитель) создаваемого узла;
• идентификатор дерева, в котором создаем узел (если мультидерево)

Действия, которые мы должны произвести во время создания:

• определить точку, где мы создаем узел;
• создание "пустого" промежутка в дереве;
• вставка нового узла в пустой подготовленный промежуток

Вызов данного метода производится так:

2. Определение узла

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

Хочу обратить внимание на то, что всем полям при выборке мы объявляем псевдонимы, потому как имена полей в таблице могут быт разные. Полученные данные, мы сохраняем в тот же объект $self, поэтому, добавим в описание объекта дополнительные свойства:

Вызов данного метода производится так:

3. Удаление узла

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

• определение данных узла;
• удаление узла и ему подчиненных;
• обновление ключей дерева для устранения промежутка

Вызов данного метода производится так:

или так:

Возврат к списку