自己参照の階層構造を持つテーブルをツリー形式にする DBIx::Tree

Adjacency List Model の視覚化

#!/usr/bin/perl
use strict;
use warnings;
use DBIx::Tree;

my $result;

my $dbh = DBI->connect(
    "dbi:mysql:database=DBNAME;host=localhost",
    'USERNAME',
    'PASSWORD',
    +{ RaiseError => 1, },
) or die "Cannot connect to DB: $DBI::errstr";

my $tree = DBIx::Tree->new(
    connection => $dbh,
    table      => 'food',
    method     => sub { disp_tree(@_) },
    columns    => ['id', 'food', 'parent_id'],
    start_id   => '001',
);

$tree->traverse;

print "$result\n";

sub disp_tree {
    my (%param) = @_;

    my $item = $param{item};
    my $p_id = ${$param{parent_id}}[-1] ? ${$param{parent_id}}[-1] : 'ROOT';
    my $id   = $param{id};
    $result .= (' ' x ($param{level}*2) ). "$p_id: ". "$item($id)\n";
}

上記のコードを実行すると、以下のように結果が表示されます。

  ROOT: Food(001)
    001: Beans and Nuts(002)
      002: Beans(003)
        003: Black Beans(005)
        003: Kidney Beans(007)
          007: Black Kidney Beans(009)
          007: Red Kidney Beans(008)
      002: Nuts(004)
        004: Pecans(006)
    001: Dairy(010)
      010: Beverages(011)
        011: Coffee Milk(020)
        011: Skim Milk(013)
        011: Whole Milk(012)
      010: Cheeses(014)
        014: Cheddar(015)
        014: Gouda(018)
        014: Muenster(019)
        014: Stilton(016)
        014: Swiss(017)

なるほど、こういうことか！

モジュールの使い方は DBIx::Tree のドキュメントの通りで難しくないと思いますが、なかなかどうしてこうしたデータ構造は興味をそそりますよね。

例えば Food テーブルのデータを追加、更新、削除するときどうするか、検索するときどうするか。スタックするのが快感な、再帰脳にはたまらない分野なのではないでしょうか。

ただ、上記のようなテーブルは Adjacency List Model でしたが、例えば MySQL で扱うには Nested Set Model の方が都合が良く、DBIx::Tree::NestedSet というモジュールも存在します。さらには、各レコードに ツリー構造そのものを保持する Path Emuneration Model がもっとも都合が良いと言われています(上記コードの disp_tree 内で取得できる $param{parent_id} をカラムとして持っている状態かな)。

それぞれ興味がわいた人はModel名で検索してみると、詳細な解説記事がたくさん見つかるでしょう！