Thanks for the example. I really appreciate it. I couldn't get it to work with my own data until I realized that you had the parent of the first row equal to the id of that row. In my data, I had the parent of the first row equal to zero. Just a logic fault on my part.

I added a pre-sort at the beginning so that the time stamp of the node would be taken into account for nodes with the same parent, though I'm sure there is a better way to do it. 

use strict;
use warnings;

my (%posts, @threads, $id, $root, $board, $parent, $stamp, $title);

my @array;
while (<DATA>)
{
    chomp($_);
    my @subarray = split(/,/,$_);
    push @array, [@subarray];
}
my @sortedarray = sort { $a->[4] cmp $b->[4] } @array;

for my $x (0..$#sortedarray) {    
    ($id, $root, $board, $parent, $stamp, $title) = @{$sortedarray[$x]
+};
    my %post = ('id' => $id, 'root' => $root, 'parent' => $parent, 'st
+amp' => $stamp, 'title' => $title);
    $posts{$id} = \%post;
    if ($id == $parent) {
        push @threads, \%post;
    }
    else {
        push @{$posts{$parent}{'children'}}, \%post;
    }
}

construct($_) for @threads;
    
sub construct {
    my $p = $_[0];
    print  "$p->{'id'} $p->{'title'}\n";
    construct($_) for @{$p->{'children'}};
}

#id,board,root,parent,stamp,text
__DATA__
1,2,0,1,2006-01-02 08:15:00,test line 1 (first)
2,2,1,1,2006-01-02 08:16:00,test line 2 (second)
3,2,1,2,2006-01-02 08:21:00,test line 3 (third)
6,2,1,1,2006-01-02 08:23:00,test line 6 (seventh)
4,2,1,1,2006-01-02 08:22:00,test line 4 (sixth)
7,2,1,6,2006-01-02 08:25:00,test line 7 (eighth)
5,2,1,3,2006-01-02 08:23:00,test line 5 (fourth)
8,2,1,1,2006-01-02 08:17:00,test line 8 (fifth)

[download]
Is it possible to have the all data produced by construct assigned/returned to a single array of hashes without the array having to be scoped globally? This is the main reason that I didn't want to use a recursive routine.

In reply to Re^2: Adjancey Tree Confusion by ChrisR
in thread Adjacency Tree Confusion by ChrisR

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.