Quiq::Database::Tree - Baum von Datensätzen
Quiq::Hash
Ein Objekt der Klasse repräsentiert eine Menge von Datensätzen, die mittels zweier Attribute $pkColumn und $fkColumn in einer hierarchischen Beziehung zueinander stehen und somit eine Baumstruktur bilden. Die Klasse bietet Methoden, um auf dieser Baumstruktur operieren zu können.
$tree = $class->new($tab,$pkColumn,$fkColumn);
Instantiiere ein Baum-Objekt aus den Datensätzen des ResultSet $tab. Die Datensätze stehen über die Attribute $pkColumn und $fkColumn in einer hierarchischen Beziehung.
Datensätze:
id parent_id name -- --------- ---- 1 NULL A 2 1 B 3 2 C 4 1 D
Pfade:
A A/B A/B/C A/D
Baum:
A +-B | \-C +-D
Aufruf:
$tree = Quiq::Database::Tree->new($tab,'id','parent_id');
$tab = $tree->table;
Liefere das ResultSet-Objekt, das beim Konstruktor angegeben wurde.
$h = $tree->pkIndex;
Liefere eine Referenz auf den Hash, der die Datensätze nach Primary-Key-Index indiziert.
$type = $tree->type;
Liefere den (intern generierten) Typ-Bezeichner, für den die Datensatz-Verknüpfung definiert ist.
@rows|$tab = $tree->childs($row); @rows|$tab = $tree->childs($pk);
Liefere die Liste der Kind-Datensätze - also der unmittelbar untergeordneten Datensätze - zum Datensatz $row bzw. zum Datensatz mit dem Primärschlüssel $pk. Besitzt der Datensatz keine Kind-Datensätze, ist die Liste leer. Im Skalarkontext liefere ein ResultSet-Objekt mit den Datensätzen.
@rows = $tree->childs(1);
Resultat:
id parent_id name -- --------- ---- 2 1 B 4 1 D
@rows = $tree->descendants($row); @rows = $tree->descendants($pk);
Liefere die Liste aller untergeordneten Datensätze zum Datensatz $row bzw. zum Datensatz mit dem Primärschlüssel $pk. Besitzt der Datensatz keine untergeordneten Datensätze, ist die Liste leer. Die Reihenfolge der Datensätze entspricht der einer Tiefensuche. Im Skalarkontext liefere ein ResultSet-Objekt mit den Datensätzen.
@rows = $tree->descendants(1);
id parent_id name -- --------- ---- 2 1 B 3 2 C 4 1 D
$tree->generatePathAttribute($key,$valColumn,$sep);
Füge zu allen Datensätzen das Attribut $key hinzu und setze es auf den Pfad gemß Datensatz-Attribut $valColumn mit der Trenn-Zeichenkette $sep. Die Methode liefert keinen Wert zurück.
$tree->generatePathAttribute('path','name','/');
Erweitert alle Datensätze um das Attribut 'path':
id parent_id name path -- --------- ---- ----- 1 NULL A A 2 1 B A/B 3 2 C A/B/C 4 1 D A/D
$row = $tree->lookup($pk); $row = $tree->lookup($row);
Liefere den Datensatz mit dem Primärschlüssel $pk. Wird ein Datensatz $row übergeben, wird dieser unmittelbar zurückgeliefert. Dies ist nützlich, wenn die Methode genutzt wird um eine Variable zu einem Datensatz aufzulösen, die ein Primärschlüssel oder Datensatz sein kann. Die Klasse selbst nutzt die Methode zu diesem Zweck.
$par = $tree->parent($row); $par = $tree->parent($pk);
Liefere den Eltern-Datensatz zum Datensatz $row bzw. zum Datensatz mit dem Primärschlüssel $pk. Besitzt der Datensatz keinen Eltern-Datensatz, liefere undef.
$row = $tree->parent(3);
Resultat (ein Datensatz):
id parent_id name -- --------- ---- 2 1 B
@rows = $tree->path($row); @rows = $tree->path($pk); @values = $tree->path($row,$key); @values = $tree->path($pk,$key); $path = $tree->path($row,$key,$sep); $path = $tree->path($pk,$key,$sep);
Ermittele die Pfad-Datensätze, die Pfad-Werte oder den Pfad des Datensatzes $row bzw. des Datensatzes mit dem Primärschlüssel $pk gemäß der Datensatz-Hierarchie und liefere das Resultat zurück.
Ist Argument $key angegeben, wird die Liste der Werte des Attributs $key geliefert.
Ist zusätzlich Argument $sep angegeben, wird die Liste der Werte mit $sep getrennt zu einer Zeichenkette zusammengefügt.
Pfad als Liste von id-Werten
@values = $tree->path(3,'id');
(1,2,3)
Datensätze und ihre id-Wert-Pfade:
id parent_id name @values -- --------- ---- ------- 1 NULL A (1) 2 1 B (1,2) 3 2 C (1,2,3) 4 1 D (1,4)
Pfad als Zeichenkette
$path = $tree->path(3,'name','/');
'A/B/C'
Datensätze und ihre name-Pfade:
id parent_id name $path -- --------- ---- ----- 1 NULL A A 2 1 B A/B 3 2 C A/B/C 4 1 D A/D
@rows|$rowA = $tree->rows;
Liefere die Datensätze des Baums. Die Reihenfolge entspricht der Reihenfolge der zugrundeliegenden Tabelle $tab (s. Konstruktor).
@rows|$tab = $tree->siblings($row); @rows|$tab = $tree->siblings($pk);
Liefere die Liste der Geschwister-Datensätze zum Datensatz $row bzw. zum Datensatz mit dem Primärschlüssel $pk. Besitzt der Datensatz keine Geschwister-Datensätze, ist die Liste leer. Im Skalarkontext liefere ein ResultSet-Objekt mit den Datensätzen.
1.163
Frank Seitz, http://fseitz.de/
Copyright (C) 2019 Frank Seitz
This code is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
To install Quiq, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Quiq
CPAN shell
perl -MCPAN -e shell install Quiq
For more information on module installation, please visit the detailed CPAN module installation guide.