Re^4: Traverse an unknown multi-dimensional hash

in reply to Re^3: Traverse an unknown multi-dimensional hash
in thread Traverse an unknown multi-dimensional hash

ub dumpHash {
    my ($element, $indent) = @_;

    $indent ||= '';

    return " = $indent$element\n" unless 'HASH' eq ref $element;

    my $str= '';
    for my $key (sort keys %$element) {
        $str .= "$indent$key :";
        $str .= dumpHash ($element->{$key}, $indent . '    ');
    }

    return $str;
[download]

output :

toplevel-1 :    sublevel1a : =         value-1a
    sublevel1b : =         value-1b
toplevel-2 :    sublevel1c :        value-1c.1 : =             replace
+ment-1c.1
        value-1c.2 : =             replacement-1c.2
    sublevel1d : =         value-1d
[download]

but i want

toplevel-1 :    sublevel1a : =         value-1a
toplevel-1 :   sublevel1b : =         value-1b
[download]

Comment on Re^4: Traverse an unknown multi-dimensional hash Select or Download Code

Replies are listed 'Best First'.
Re^5: Traverse an unknown multi-dimensional hash by Anonymous Monk on Jul 30, 2012 at 04:36 UTC
Yes, I understand by now that you're trying to get rid of newlines, that is great, but where is your modification of dumpHash, with code tags, where you try?	[reply]

In Section Seekers of Perl Wisdom