Hi,

This is my code as it stands, I know it doesn't work and I know why it doesn't work. It basically represents the foundations of my best attempt.

Chris

use strict;
use warnings;
use Data::Dumper;

my $rows = [ ];

while ( <DATA> )
{
    chomp;
    
    my $depth = $_ =~ s/\s{4}//g;
    $depth ||= 0;

    push @$rows, { depth => $depth, key => $_ };
}

my $ref = process( { }, $rows );

print Dumper $ref;

sub process
{
    my ( $ref, $rows ) = @_;
    
    my $current_row = shift @$rows;
    my $next_row    = $rows->[0] // return $ref;
    
    my $current_key   = $current_row->{key};
    my $current_depth = $current_row->{depth};
    my $next_key      = $next_row->{key};
    my $next_depth    = $next_row->{depth};
    
    print "$current_key, $current_depth, $next_key, $next_depth\n";
    
    $ref = $ref->{$current_key} = { };
        
    if ( $current_depth > $next_depth )
    {        
        return $ref;
    }
    elsif ( $current_depth < $next_depth )
    {
        $ref = process( $ref, $rows );
    }
    
    return $ref;
}

__DATA__
one
    two
    three
        four
five
    six

[download]

In reply to Re^2: Parse data representing hash by peterp
in thread Parse data representing hash by peterp

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.