Hi thanos,

To clarify, the structures I am trying to parse are generated by TreeDumper with $Data::TreeDumper::Displayaddress = 0.

Here is a quick and dirty function I have whipped up which suffices for my possible inputs, but is not quite correct for all possible inputs. Specifically, it will interpret arrays as hashes with keys 0 .. n.

#!/usr/bin/env perl

use strict;
use warnings FATAL => 'all';
use feature qw(say);

use Test::Deep qw(eq_deeply);

sub parse_treedump {
    my $lines = shift;
    my @lines = @$lines;

    my %obj;
    my @stack;

    my $parse_next_line = sub {
        my $line = shift @lines;
        my $key_indicator = $line =~ /\|-/ ? '|-' : '`-';

        my $key_idx = index( $line, $key_indicator );

        my $level = @stack;
        my $key_level = $key_idx / 3;

        if ($key_level < $level) {
            pop @stack until $key_level == ($level = @stack);
        }

        my $current_obj = \%obj;
        $current_obj = $current_obj->{$_} foreach @stack;

        if ($line =~ /(\w+)\s=\s(.*)$/ && $key_level == $level) {
            $current_obj->{$1} = $2 eq 'undef' ? undef : $2;
        }

        elsif ($line =~ /(\w+)\s\(no\selements\)/) {
            $current_obj->{$1} = [ ];
        }

        elsif ($line =~ /(\w+)\s=$/) {
            $current_obj->{$1} = '';
        }

        elsif ($line =~ /(\w+)/ && $key_level == $level) {
            push @stack, $1;
            $current_obj->{$1} = { };
        }
    };

    $parse_next_line->() while @lines;

    return \%obj
}

my $expected_hash = {
    one      => 'two',
    three    => {
        four   => 'five',
        six    => 'seven',
        eight  => {
            nine => 'ten'
        },
        eleven => [ ],
        twelve => undef,
    },
    thirteen => 'fourteen'
};

my $lines = [];
while (<DATA>) {
    chomp;
    push @$lines, $_;
}
close DATA;
my $output_hash = parse_treedump($lines);

if (eq_deeply($output_hash, $expected_hash)) {
    say "OK";
}

1;

__DATA__
|- one = two
|- three
|  |- four = five
|  |- six = seven
|  |- eight
|  |  `- nine = ten
|  |- eleven (no elements)
|  `- twelve = undef
`- thirteen = fourteen

[download]

As you can see, the TreeDump output in the __DATA__ section gets converted to the expected hash. I would prefer it to work for all possible inputs...

Best,
Jim

In reply to Re^2: TreeDumper Parser / Inverse? by jimpudar
in thread TreeDumper Parser / Inverse? by jimpudar

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.