Perl中递归调用数据库

Question

我知道有一种简单的方法可以做到这一点，但我的递归能力还不够实践。给定一个包含三个字段的数据库表：

id
label
child_id

我应该能够组合一个递归函数，给出如下输出：

child (input of program)
  parent1
  parent2
    grandparent1
      great-grandparent1
    grandparent2
    grandparent3
  parent3
    grandparent4
    grandparent5

我知道这应该很容易，但我无法让我的思想通过心理体操来实现它工作。另外，这是一件好事吗？看来我最终可能会打开相当多的数据库连接。

我认为这是让我感到困难的部分。我从一个 child_id 开始，然后逐步向上。而且一个孩子可以有很多个父母。因此，输出将是树“根”处的子 ID，然后是每个分支的父母和祖父母。我想得越多，除了语义之外，这只是传统的“一亲多祖父母”公式。我可能想多了。

该表看起来像这样：

table parents

id    child_id    label
 1     NULL       child
 2     1          parent1
 3     1          parent2
 4     1          parent3
 5     3          grandparent1
 6     3          grandparent2
 7     3          grandparent3
 8     5          great-grandparent1
 9     4          grandparent4
10     4          grandparent5

Answer 1

你可以尝试这个方法

sub getChildren {
  my $id = shift;
  my $depth = shift;
  my $sql = qq/SELECT id,label,child_id FROM table WHERE id=?/;
  my $sth = $db->prepare($sql);
  my $sth->execute($id);
  while(my ($id,$label,$child_id)=$sth->fetchrow_array) {
    print " "x$depth,$label;
    getChildren($child_id,$depth++);
 }
}
getChildren($id);

Answer 2

我实际上在我的博客中解释了一个非常相似的问题， 实现深度首先在 PostgreSQL 存储过程中进行搜索，以及我使用 perl 解决此问题的方法。

如果您的数据库不支持存储过程，您可以在客户端执行相同的操作，但您需要首先获取整个表并在内存中执行此操作。

当然，您可以递归地执行此操作并在执行过程中获取每个条目，但由于 SQL 语句开销，它不会扩展（可能在 SQLite 上除外）。如果性能不是问题，这一定是迄今为止最简单的解决方案。