Dbix :: baum. Perl-Modul zum Erzeugen eines Baums aus einem selbst referenziellen Tisch
Jetzt downloaden

Dbix :: baum. Ranking & Zusammenfassung

Dbix :: baum. Stichworte

Tabelle Perl-Modul Baum Generator Baum generieren Self-Reference-Tabelle

Dbix :: baum. Beschreibung

Perl-Modul zum Erzeugen eines Baums aus einem selbstreferenziellen Tisch Wenn Sie eines dieser unangenehmen selbstreferenzierenden Tabellen haben, die Sie in einen Baum ausbrechen möchten, ist DBIX :: Tree das Modul zum Auschecken. Unter der Annahme, es gibt keine schrecklich gebrochen Knoten in Ihrem Baum und (Gott bewahre) alle Zirkelverweise, dieses Modul wird so etwas wie drehen: Essen food_id parent_id ================== === ==== ========= Lebensmittel 001 Nullbohnen und Muttern 002001 Bohnen 003002 Muttern 004002 schwarze Bohnen 005003 Pecaner 006004 Nierenbohnen 007003 rote nieren bohnen 008007 schwarze kidney bohnen 009007 molkerei 010001 Getränke 011010 Ganze Milch 012011 Mirdmilch 013011 Käse 014010 Cheddar 015014 Stilton 016014 Swiss 017014 GOUDA 018014 Münster 019014 Kaffee Milch 020011 (011) Molkerei (010) Getränke (011) Kaffee Milch ( 020) Vollmilch (012) Magermilch (013) Käse (014) Cheddar (015) Stilton (016) Swiss (017) Gouda (018) Münster (019) Bohnen und Nüsse (002) Bohnen (003) Schwarze Bohnen (005) ) Nierenbohnen (007) rote Kidney-Bohnen (008) Black-Kidney-Bohnen (009) Muttern (004) Pecans (006) Es gibt Beispiele im Beispielverzeichnis - ein einfaches Textbeispiel, und zwei TK-Beispiele. Synopsis verwenden dbix :: baum ; # DBIX :: Tree erstellen Sie die notwendige SQL aus Tabelle und Spaltennamen: Mein $ Tree = New DBIX :: Tree (Verbindung => $ dBh, Tabelle => $ Tabelle, Methode => sub {disc_tree (@_)}, Spalten => , start_id => $ start_id); $ Tree-> Traverse; # Alternativ können Sie Ihre eigene benutzerdefinierte SQL-Anweisung verwenden My $ SQL = $ SQL, Methode => sub {scr_tree (@_)}, Spalten => , start_id => $ start_id ); $ Tree-> Traverse; # oder verwenden Sie eine bereits vorbereitete DBI-Anweisung-Griff: Meine $ STH = $ dbh-> Bereiten Sie ($ SQL); Mein $ Tree = New DBIX :: Baum (Verbindung => $ dbh, STH => $ STH, Methode => SUB {SP_TREE (@_)}, Spalten => , start_id => $ start_id); $ Tree-> Traverse; Anforderungen: · Perl.

Dbix :: baum. Zugehörige Software