Dbix :: arbol Módulo PERL para generar un árbol de una tabla auto-referencial
Descargar ahora

Dbix :: arbol Clasificación y resumen

Dbix :: arbol Etiquetas

mesa Módulo perl Árbol generador generar árbol Mesa auto-referencial

Dbix :: arbol Descripción

Módulo Perl para generar un árbol de una tabla autorreferencial Cuando tiene una de esas mesas auto-referenciales desagradables que desea salir en un árbol, DBIX :: Árbol es el módulo para revisar. Suponiendo que no haya nodos horriblemente rotos en su árbol y (el cielo que prohíbe) cualquier referencias circular, este módulo convertirá algo como: alimentos food_id parent_id ================== === ==== ========= Food 001 nulos y tuercas 002001 Frijoles 003002 Tuercas 004002 Frijoles negros 005003 PECANS 006004 Frijoles de riñón 007003 Frijoles de riñón rojo 008007 Frijoles de riñón negro 009007 Dairy 010001 BEBIDAS 011010 TODO LECHE 012011 LECHE SKIM 013011 Quesos 014010 Cheddar 015014 Stilton 016014 Swiss 016014 Gouda 018014 Muenster 019014 Café Milk 020011Tho: Food (001) Lechery (010) BEBIDAS (011) Leche de café (011) 020) Leche entera (012) Milk Skim (013) Quesos (014) Cheddar (015) Stilton (016) Swiss (017) Gouda (018) Gouda (018) Muenster (019) Frijoles y tuercas (002) Frijoles (005) Frijoles negros (005) ) Frijoles de riñón (007) frijoles rojos (008) frijoles negros (009) tuercas (004) Nueces (004) PECANS (006) Hay ejemplos en el directorio de los ejemplos: un ejemplo de texto simple, y dos ejemplos de TK.Synopsis Use DBIX :: árbol ; # Tener dbix :: árbol construir el SQL necesario de los nombres de la tabla y la columna: My $ TREE = NEW DBIX :: Tree (Connection => $ DBH, Table => $ Table, Método => Sub {DISP_TREE (@_)}, columnas => , start_id => $ start_id); $ árbol-> Traverse; # Alternativamente, use su propia declaración SQL personalizada My $ sql = $ sql, método => sub {disp_tree (@_)}, columnas => , START_ID => $ START_ID ) $ árbol-> Traverse; # o use un control de declaración DBI ya preparado: My $ STH = $ DBH-> Prepare ($ SQL); My $ TREA = NUEVO DBIX :: árbol (conexión => $ dbh, sth => $ sth, método => sub {disp_tree (@____)}, columnas => , start_id => $ start_id); $ árbol-> Traverse; Requisitos: · Perl

Dbix :: arbol Software relacionado