Creating a tree-based hash out of hashes

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

how do I get this:

$VAR1 = { '999' => { '998' => [ '908', '906', '0', '998', '907' ] } };
$VAR1 = { '999' => { '991' => [ '913', '920', '918', '998', '916', '91
+9', '917', '915', '912', '914' ] } };
$VAR1 = { '999' => { '996' => [] } };
$VAR1 = { '999' => { '995' => [] } };
$VAR1 = { '999' => { '994' => [] } };
$VAR1 = { '999' => { '993' => [] } };
$VAR1 = { '999' => { '997' => [ '986', '987', '990', '984', '989', '98
+8' ] } };
$VAR1 = { '995' => { '101' => [] } };
$VAR1 = { '995' => { '102' => [] } };
$VAR1 = { '995' => { '103' => [] } };
$VAR1 = { '995' => { '104' => [] } };
$VAR1 = { '995' => { '105' => [] } };
$VAR1 = { '995' => { '106' => [] } };
$VAR1 = { '995' => { '107' => [] } };
$VAR1 = { '994' => { '910' => [] } };
$VAR1 = { '993' => { '909' => [] } };
$VAR1 = { '993' => { '904' => [] } };
$VAR1 = { '994' => { '985' => [] } };
$VAR1 = { '994' => { '983' => [] } };
$VAR1 = { '993' => { '902' => [] } };
$VAR1 = { '999' => { '992' => [ '905' ] } };
[download]

to this:

$VAR1 = { '999:' => [
    { '992' => [ '905' ] },
    { '993' => [
        { '909' => [] },
        { '904' => [] },
        { '902' => [] }
    ] },
    { '994' => [
        { '910' => [] },
        { '985' => [] },
        { '983' => [] }
    ] },
    { '995' => [
        { '101' => [] },
        { '102' => [] },
        { '103' => [] },
        { '104' => [] },
        { '105' => [] },
        { '106' => [] },
        { '107' => [] }
    ] },
    { '996' => [] },
    { '997' => [ '986', '987', '990', '984', '989', '988' ] },
    { '998' => [ '908', '906', '0', '998', '907' ] },
    { '991' => [ '913', '920', '918', '998', '916', '919', '917', '915
+', '912', '914' ] }
]};
[download]

Comment on Creating a tree-based hash out of hashes Select or Download Code

Replies are listed 'Best First'.
Re: Creating a tree-based hash out of hashes by roboticus (Chancellor) on May 04, 2010 at 18:08 UTC
You simply haven't provided enough information to let anyone give you a sensible answer. For example, one perfectly legitimate answer that meets all the requirements you specify, would be: "Open the document in your word processor, and edit it until it matches the second example.". Handy references for you: Ask questions the smart way I know what I mean. Why don't you? How (Not) To Ask A Question ...roboticus	[reply]
Re: Creating a tree-based hash out of hashes by repellent (Priest) on May 05, 2010 at 03:14 UTC
Have a look at Hash::Merge. Here's a quick hack. I don't understand why you'd want arrays of single-key hashes (but that's what `arrayify_hashes()` does). Read more... (2 kB) Output: $VAR1 = [ { '993' => [ { '902' => [] }, { '904' => [] }, { '909' => [] } ] }, { '994' => [ { '910' => [] }, { '985' => [] }, { '983' => [] } ] }, { '999' => [ { '993' => [] }, { '994' => [] }, { '992' => [ '905' ] }, { '998' => [ '908', '906', '0', '998', '907' ] }, { '996' => [] }, { '997' => [ '986', '987', '990', '984', '989', '988' ] }, { '995' => [] }, { '991' => [ '913', '920', '918', '998', '916', '919', '917', '915', '912', '914' ] } ] }, { '995' => [ { '104' => [] }, { '103' => [] }, { '106' => [] }, { '102' => [] }, { '101' => [] }, { '105' => [] }, { '107' => [] } ] } ]; [download]	[reply] [d/l] [select]