Idee für Package "Nested Sets" (Allgemeines zu Perl)

[thread]14763[/thread]

Idee für Package "Nested Sets"

Leser: 35

Articles: hide open all | hide show old branches

+20 replies
Hagen

2010-03-03 14:14

User since
2007-09-06
233 Artikel
BenutzerIn

Hallo,

ich schreibe gerade an eine (Web-) Anwendung, bei der es bei einigen Daten Sinn macht, diese in Nested_Sets in der Datenbank (SQL) zu speichern. Dazu gehören z.B. das Menü, (verschachteltet) Kategorien, Materiallisten (mit Unterpunkten), etc.

Da die Grundfunktionen im Bereich 'Nested Sets' immer wieder die gleichen sind (bestimmte Abfragen, einfügen, verschieben, löschen), macht es natürlich wenig Sinn, diese immer wieder für jeden (Daten-) Bereich erneut zu implementieren.
Allerdings fehlt mir im Moment ein guter Ansatz um überhaupt damit anzufangen, ggf. ein Package daraus zu machen, da zwar die 'Nested Sets' überall gleich sind, die Daten "dahinter" aber sehr unterschiedlich sind. Z.B. hat das Menü einen Titel und einen Hilfe-Text, die Kategorie zusätzlich ein Farbe, die Materialliste noch ein Anzahl usw. (normalerweise hätte ich das mit unterschiedlichen JOINS bei der SQL-Abfrage gelöst).

Hat sich mit so etwas jemand schon mal beschäftigt bzw. kann mir einen guten Tipp oder Ansatz zur Vorgehensweise geben?
Gruß
Hagen
- esskar
  
  2010-03-03 14:21
  
  User since
  2003-08-04
  7321 Artikel
  ModeratorIn
  
  ich nicht direkt, aber andere
  DBIx-OO
  nested sets
- +13 replies
- pktm
  
  2010-03-03 14:46
  
  User since
  2003-08-07
  2921 Artikel
  BenutzerIn
  
  Ach, sowas von meiner (mach-ich-mal-wenn-ich-dazu-komme)TODO-Liste :D
  Ich hätte das gerne als Erweiterung von DBIx::Class, so ähnlich wie DBIx::Class::Ordered.
  
  Man spezifiziert im Prinzip, wie die Spalten für (id,) links und rechts heißen und bietet dann Operationen darauf an. Interessant wird es, wenn zusätzlich Daten für die Anlage eines Datensatzes benötigt werden, oder beim Bewegen eines Datensatzes auch noch gleichzeitig die Daten aktualisiert werden sollen (wobei ich letzteres einfach mal vernachlässigen würde).
  
  Letzten Endes gilt es zu identifizieren: was soll gemacht werden (neuer Datensatz, bewegen, löschen), welche Daten sollen wo hin (-> neu: welche Inhalte in welche Felder) und wie macht man es am besten.
  
  Arbeitest du denn mit einem ORM oder gehst du richtig mit SQL dran?
  http://www.intergastro-service.de (mein erstes CMS :) )
  - +12 replies
  - Hagen
    
    2010-03-03 14:57
    
    User since
    2007-09-06
    233 Artikel
    BenutzerIn
    
    Das Thema ORM steht noch auf meiner 'Lern-Liste' :-) d.h. ich geh 'richtig'/'noch' mit SQL ran.
    
    Primär geht es mir um Abfragen (z.B. "Breadcrumb", "aufgeklapptes Menü", "Anzahl der Element" usw.).
    
    Verschiebe bzw. umsortieren dürfte recht einfach sein, da in diesem Fall nur die 'Nested Sets'-Daten verändert werden. Beim einfügen und löschen wird man bestimmt nur für die 'Nested Sets'-Daten allgemeine Funktionen schreibe können, den 'Daten-Anhang' wird man immer speziell bearbeiten müssen.
    
    Außer dem Test-Schema gibt es auch noch kein (vollendetes) DB-Schema, d.h. hier ist noch alles offen.
    Gruß
    Hagen
    - +9 replies
    - pq
      
      2010-03-03 15:00
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      bedenke, dass es auch noch andere möglichkeiten gibt. die forum-threads sind auch nested sets, und jede message hat ausser lft und rgt auch noch eine thread_id. d.h. bei jeder abfrage muss auch noch thread_id = ?? hinzugefügt werden. sowas muss ein modul, was nested sets operationen anbietet, auch als konfiguration anbieten.
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
      - +8 replies
      - Hagen
        
        2010-03-03 15:15
        
        User since
        2007-09-06
        233 Artikel
        BenutzerIn
        
        Genau das ist mein Anliegen. Wie löst man so etwas am besten?
        
        So viele Packages habe ich noch nicht geschrieben, daher fehlen mir hier die Erfahrungen und gute Ideen.
        Gruß
        Hagen
        
        +7 replies
        
        pq
        
        2010-03-03 15:58
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        also mit DBIx::Class sollte das zumindest einfacher gehn, da man dort bedingungen einfach verketten kann, aber schön zu programmieren ist es trotzdem nicht, ich habe das im forum-code auch noch verteilt rumfliegen und muss das mal zusammenfassen.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +6 replies
        
        pktm
        
        2010-06-27 02:36
        
        User since
        2003-08-07
        2921 Artikel
        BenutzerIn
        
        Hier bin eben drüber gestolpert: DBIx::Class::Tree::NestedSet
        http://www.intergastro-service.de (mein erstes CMS :) )
        
        +5 replies
        
        pq
        
        2010-06-28 15:13
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        das gibts schon ne weile (kannte es schon, bevor es auf CPAN kam, glaube ich).
        
        leider kann ich immer noch nicht erkennen, wie man dort eine thread_id oder ähnliches hinzufügt. also die bäume hier im forum sind ja kein zusammenhängender baum, sondern ganz viele, die je einem thread zugeordnet sind. und sowas fehlt mir dabei.
        vielleicht hab ich aber auch nur noch nicht kapiert, wie man das mit dem modul definiert.
        
        edit: ich glaube, das ist "root_id". das gabs in dem modul noch nicht, als ich es mal angeschaut habe.
        dann lohnt es sich wohl, das mal auszuprobieren.
        
        edit2: nur die frage, ob root_id tatsächlich die id des root nodes sein muss. wenn ja, kann ich es nicht einsetzen, da die thread_id hier im forum unabhängig von den ids der artikel ist.
        
        edit3: ah, die root_id kann beides sein. wenn man keine bereitstellt, wird es die id des root nodes.
        so, genug laut gedacht...
        Last edited: 2010-06-28 15:27:38 +0200 (CEST)
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +3 replies
        
        esskar
        
        2010-06-28 15:27
        
        User since
        2003-08-04
        7321 Artikel
        ModeratorIn
        
        2010-06-28T13:13:14 pq
        edit: nur die frage, ob root_id tatsächlich die id des root nodes sein muss. wenn ja, kann ich es nicht einsetzen, da die thread_id hier im forum unabhängig von den ids der artikel ist.
        
        hmm. ich denke, das ist egal. jeder unterknoten ist ja wieder ein eigener baum.
        
        +2 replies
        
        pq
        
        2010-06-28 15:29
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        hm? verstehe ich nicht.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        pq
        
        2010-06-28 15:39
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        habens im IRC geklärt, war ein missverständnis
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        pktm
        
        2010-07-02 01:23
        
        User since
        2003-08-07
        2921 Artikel
        BenutzerIn
        
        Hm, man kann mehrere Bäume in einer Tabelle ablegen. Wenn man einen Knoten erstellt und zu diesem keinen Mutter-Knoten angibt, wird es eine Wurzel. Per default ist dann root_id = die ID aus dem Primärschlüssel.
        
        Zusätzliche Daten kann man wie gewohnt angeben:
        
        Code: (dl )
        
        1 2 3 4
        
        my $schema = MyTest::Schema->connect($dsn, $user, $auth, $attrs) or die("error connect: $!"); $schema->storage->debug(1); my $root = $schema->resultset('Nested')->create({ ident => 'root', info => 'some_info' });
        
        info ist eine zusätzliche Spalte in der Tabelle und in der Resultset-Definition enthalten.
        
        Im Moment ist noch ein Bug drin, und zwar hinsichtlich des Defaults für root_id. Wollte das noch testen und dann melden.
        In DBIx::Class::Tree::NestedSet::insert steht:
        
        Code: (dl )
        
        1 2 3
        
        $row->update({ $root => $primary_columns[0], });
        
        Zumindest MySQL beschwert sich da, dass id kein gültiger Wert für root_id ist. Man muss schreiben:
        
        Code: (dl )
        
        1 2 3
        
        $row->update({ $root => \$primary_columns[0], });
        
        Alles in allem hat es mir aber gerade gut gefallen, den ganzen hässlichen Code, den ich für nested sets hatte, weglegen zu können und das Modul zu benutzen.
        http://www.intergastro-service.de (mein erstes CMS :) )
    - +2 replies
    - pktm
      
      2010-03-03 15:14
      
      User since
      2003-08-07
      2921 Artikel
      BenutzerIn
      
      Tja, also auf pures SQL habe ich echt keinen Bock mehr. SQL::Abstract sollte es schon sein :)
      http://www.intergastro-service.de (mein erstes CMS :) )
      - sid burn
        
        2010-03-03 15:16
        
        User since
        2006-03-29
        1520 Artikel
        BenutzerIn
        
        Reicht aber leider auch nicht immer aus, da es ja nichtmal JOINs kann. Aber manchmal vermisst man auch die einfachheit von puren SQL und man fragt sich wie xyz überhaupt in z.B. DBIx::Class realisierbar wäre.
        Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
- +5 replies
- meier19
  
  2010-06-28 14:41
  
  User since
  2009-02-03
  73 Artikel
  BenutzerIn
  
  Ich verwende NestedSets. Die immer vorhandenen Daten (id, lft, rgt, level, name) kommen in eine Tabelle und die zusätzlichen in weitere Tabellen, deren ids der Haupttabelle entsprechen. Für die hauptsächlich vorkommenden Funktionen wie Erstellen eines Baums, Einfügen von root, Einfügen eines witern Datensatzes, Löschen eines Datensatzes, Verschieben eines Datensatzes, Ausgabe eines breadcrumbs, Ausgabe des ganzen Baums habe ich ein Modul gemacht, auf das von überall her gegriffen werden kann. Es ist noch nicht ausgereift und noch in Bearbeitung. Für Mysql. Auf Wunsch kann ich es dir zur Verfügung stellen.
  Last edited: 2010-06-28 14:45:04 +0200 (CEST)
  Der Mensch schöpft seine Gesetze nicht aus der Natur, sondern schreibt sie dieser vor (Immanuel Kant).
  - sitescriptor
    
    2010-06-29 00:46
    User since
    2009-08-09
    105 Artikel
    BenutzerIn
    
    Habe wahrscheinlich ähnliches wie meier19 (ebenfalls MySQL). Vor acht Jahren war das noch ein echtes Abenteuer! Vorsicht: Bin Dilettant!
    Ich erzeuge zusätzlich Metadaten, die das Auslesen einfacher machen. Diese entstehen aus dem NestedSet, können also jederzeit neu berechnet werden.
    Mein nächster Schritt wird die Auslagerung des NestedSet Daten in eine eigene Tabelle, so dass die damit strukturierten Daten unabhängig werden.
    (Hab aber noch Bugs beim Verschieben der Einträge.)
    Würde das Modul auch als Beispiel hergeben.
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
    
    # CREATE TABLE b_struct ( # l int(32) unsigned NOT NULL default '0', # r int(32) unsigned NOT NULL default '0', # id int(32) unsigned NOT NULL auto_increment, # es folgen die Metadaten: # num int(10) unsigned NOT NULL default '0', # laufende Nummer # nick varchar(120) NOT NULL default '', # Name des Item # level int(32) unsigned NOT NULL default '0',# Schachtelungstiefe # groupid int(32) unsigned NOT NULL default '0',# Übergeordnetes Item ## es folgen die verwalteten Daten, hier ausgelassen # PRIMARY KEY (id), # KEY nick (nick) # ) TYPE=MyISAM; #--------------------------------------------------------------------- # Funktionen # # sub move_up_by_id # sub move_down_by_id # sub _move_item_extract # sub _move_item_add # sub _move_item_insert # # sub item_insert # sub item_add # sub item_delete # sub extract_to_newstruct # sub get_path # sub get_inside_item # sub get_groups_inside_item # sub get_all_inside_item # sub get_same_group # sub _refresh_struct # sub _set_level() # #----------------------------------------------------------------------
  - +3 replies
  - Hagen
    
    2010-06-30 08:14
    
    User since
    2007-09-06
    233 Artikel
    BenutzerIn
    
    Deine Lösung (meier19) würde mich sehr interessieren bzw. das Konzept davon. Bisher fehlt mir immer noch eine Idee, wie ich das ganze vernünftig in ein Modul packen kann.
    Gruß
    Hagen
    - +2 replies
    - meier19
      
      2010-06-30 18:06
      
      User since
      2009-02-03
      73 Artikel
      BenutzerIn
      
      Kennen gelernt hatte ich NestedSets von http://www.klempert.de/nested_sets/. Dem entsprechend habe ich ein Modul erstellt. Wenn du mir deine Adresse für E-mails zukommen lässt, kann ich dir das Modul zusenden. Allerdings ist es, wie erwähnt, weder fertig noch ausgereift, aber immerhin schon einigermassen brauchbar.
      Der Mensch schöpft seine Gesetze nicht aus der Natur, sondern schreibt sie dieser vor (Immanuel Kant).
      - Gast ҉
        
        2010-07-01 13:19
        
        DBIx::OO::Tree
        Last edited: 2010-07-01 13:23:47 +0200 (CEST)

View all threads created 2010-03-03 14:14.