Dbix :: tree.

Módulo Perl para gerar uma árvore de uma tabela auto-referencial
Baixe Agora

Dbix :: tree. Classificação e resumo

Propaganda

  • Rating:
  • Licença:
  • Perl Artistic License
  • Preço:
  • FREE
  • Nome do editor:
  • Brian Jepson
  • Site do editor:
  • http://search.cpan.org/~bjeps/

Dbix :: tree. Tag


Dbix :: tree. Descrição

Módulo Perl para gerar uma árvore de uma tabela auto-referencial Quando você tem uma dessas mesas auto-referenciais desagradáveis que você deseja quebrar para uma árvore, dbix :: árvore é o módulo para verificar. Assumindo que não há nós terrivelmente quebrados em sua árvore e (céu proíbe) qualquer referências circulares, este módulo vai virar algo como: alimentos food_id parent_id ================== === ==== ========= Comida 001 Feijão Nulo e Nozes 002001 Feijões 003002 Nozes 004002 Feijão Negro 005003 Pecans 006004 Feijão Vermelho 007003 Feijão Vermelho 008007 Feijão Negro 009007 Dairy 010001 Beverages 0110110 Leite Todo 012011 Skim Leite 013011 Queijos 014015 Cheddar 015014 STILTON 015014 Swiss 017014 Gouda 018014 Muenster 019014 Café Leite 020011Into: Comida (010) Bebidas (011) Leite (011) Leite de Café (011) 020) Leite integral (012) Leite Skim (013) Queijos (014) Cheddar (015) Stilton (016) Swiss (017) Gouda (018) Muenster (019) Feijão e nozes (002) Feijões (003) ) Feijão Vermelho (007) Feijão Vermelho (008) Feijão de Rim preto (009) Nozes (009) Nozes (004) Pecans (004) Há exemplos no diretório de exemplos - um exemplo de texto simples e dois exemplos de tk.synopsis usa dbix :: ; # tem dbix :: construir o SQL necessário de nomes de tabela e coluna: My $ tree = New Dbix :: Árvore (conexão => $ DBH, table => $ table, método => sub {Disp_tree (@_)}, Colunas => , start_id => $ start_id); $ tree-> Traverse; # Alternativamente, use sua própria instrução SQL personalizada Meu $ SQL = $ SQL, método => sub {Disp_tree (@_)}, colunas => , start_id => $ start_id => $ start_id ); $ tree-> Traverse; # ou usar um identificador de instrução DBI já preparado: meu $ sth = $ dbh-> preparar ($ SQL); Minha $ Tree = New Dbix :: Tree (Connection => $ DBH, sth => $ sth, método => sub {Disp_tree (@_)}, colunas => , start_id => $ start_id); $ tree-> Traverse; Requisitos: · Perl.


Dbix :: tree. Software Relacionado

Sobre nós