I have been trying to convert a bunch of arrayrefs into a list of "rows" suitable for insertion into a DB. But with proper "left" and "right" identifers for a nested set structure. I feel like I am *this* close, but I haven't been able to crack it.

Here's the datastructure:

my $raw_graph = [
    'root', undef,
    [   "Amiri",
        "Test tubes are clear.",
        [ "Darla", "Jump!" ],
        [ "Jeff",   "Daytime." ],
    ],
    [   "Ryan",
        "Oops.",
    ],
];
[download]

Each node has two "content" blocks and then an arbitrary number of arrayrefs, which are of the same structure.

My transform is like this:

explorenode( $raw_graph, [], 1, 1 );
[download]

sub explorenode {
    my ( $node, $rows, $left, $id ) = @_;
    my $i = $id;
    my $l = $left;
    for ( 2 .. $#$node ) {
        $id++;
        $left++;
        explorenode( $node->[$_], $rows, $left, $id );
        $id++;
        $left++;
    }
    $left++;
    push( @$rows, [ $i, $l, $left, $node->[0], $node->[1] ] );
}
[download]

@$rows is right only for the first subnode, i.e., Ryan's count is off:

$VAR1 = [
          3,
          3,
          4,
          'Darla',
          'Jump!'
        ];
$VAR2 = [
          5,
          5,
          6,
          'Jeff',
          'Daytime.'
        ];
$VAR3 = [
          2,
          2,
          7,
          'Amiri',
          'Test tubes are clear.'
        ];
$VAR4 = [
          4,
          4,
          5,
          'Ryan',
          'Oops.'
        ];
$VAR5 = [
          1,
          1,
          6,
          'root',
          undef
        ];
[download]

It should be

$VAR1 = [
          3,
          3,
          4,
          'Darla',
          'Jump!'
        ];
$VAR2 = [
          4,
          5,
          6,
          'Jeff',
          'Daytime.'
        ];
$VAR3 = [
          2,
          2,
          7,
          'Amiri',
          'Test tubes are clear.'
        ];
$VAR4 = [
          5,
          8,
          9,
          'Ryan',
          'Oops.'
        ];
$VAR5 = [
          1,
          1,
          10,
          'root',
          undef
        ];
[download]

Any help would be eternally appreciated!

Amiri