in reply to Re^3: Traverse an unknown multi-dimensional hash
in thread Traverse an unknown multi-dimensional hash
output :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;
but i wanttoplevel-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
toplevel-1 : sublevel1a : = value-1a toplevel-1 : sublevel1b : = value-1b
In Section
Seekers of Perl Wisdom