Hallo Horst Reinelt,
ich glaube, die Umformung ist unnötig, da du das mit einer einzigen (rekursiv aufgerufenen) Funktion lösen kannst.
Pseudo-Code, da ich kein Perl kann:
Funktion(parent)
"SELECT id FROM <tabelle> WHERE parent = " & parent
Schlaufe für jeden Datensatz
id ausgeben
Funktion mit id als Parameter aufrufen: Funktion(id)
Loop
Ende Funktion
Funktion erstmals aufrufen: Funktion(0)
Hoffe, das war jetzt einigermassen verständlich...
Gruss,
Daniel