- or download this
my $testarray = [
{ messageId => 1,
...
#print the results
print "Message\tParent\n";
print $_->{messageId} . "\t" . $_->{parent} . "\n" for @newstack;
- or download this
Message Parent
1 1
...
6 2
4 2
7 4
- or download this
select messageId,parent
from messages
start with messageId = 1
connect by prior messageId = parent