Re: Parse data representing hash

Instead of recursion, you can reach to Data::Diver and its DiveRef:

#!/usr/bin/perl
use warnings;
use strict;

use Data::Diver qw{ DiveRef };
use Data::Dumper;

my $hash = {};
my @path;
while (<DATA>) {
    chomp;
    s/^(\t*)//;
    my $depth = length $1;
    splice @path, $depth + 1;
    $path[$depth] = $_;
    DiveRef($hash, @path);
}

print Dumper $hash;

__DATA__
one
    two
    three
        four
five
    six
[download]

لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

Comment on Re: Parse data representing hash Select or Download Code

Replies are listed 'Best First'.
Re^2: Parse data representing hash by peterp (Sexton) on Jun 28, 2014 at 22:28 UTC
Hi, Thank you very much for your suggestion, i'm unable to test right now since i'm on holiday using an online compiler, but it looks exactly what I needed. My data is actually slightly more complicated than the example I provided, since each row has additional information, therefore was planning on eventually using the following design $hash->{one}->{children}->{two}..., $hash->{one}->{data}->{url} = 'example.com' etc to parse the row "one\|url=>example.com", and I will read the documentation carefully to see if this is possible. Thanks again	[reply]
Re^2: Parse data representing hash by Anonymous Monk on Jun 28, 2014 at 22:30 UTC
To maintain hash of hash of .... in case the data has lines of numbers ... `DiveRef($hash, \(@path) );`	[reply] [d/l]