Re^4: Traverse an unknown multi-dimensional hash

[Anonymous Monk]

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;

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

but i want

toplevel-1 :    sublevel1a : =         value-1a
toplevel-1 :   sublevel1b : =         value-1b

[Anonymous Monk]

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?