Re^2: Traverse an unknown multi-dimensional hash

Replies are listed 'Best First'.
Re^3: Traverse an unknown multi-dimensional hash by Anonymous Monk on Jul 27, 2012 at 18:10 UTC
How would i print the output like this : 1 => a =>i =>level 3 1=> a=> =>ii => level3 1=>a=>iii=>level3 etc I could not workout the code to go back to the start and traverse back.	[reply]
Re^4: Traverse an unknown multi-dimensional hash by Anonymous Monk on Jul 28, 2012 at 08:39 UTC
Through recursion, just use Re: Traverse an unknown multi-dimensional hash	[reply]
Re^5: Traverse an unknown multi-dimensional hash by Anonymous Monk on Jul 28, 2012 at 22:15 UTC
traversing is fine. i replyed to the same post i want it to print as 1 => a =>i =>level 3 1=> a=> =>ii => level3 1=>a=>iii=>level3 as after traversing till level 3 in firs line.....how reset the patent to 1->a?	[reply]
Re^4: Traverse an unknown multi-dimensional hash by Anonymous Monk on Jul 28, 2012 at 22:37 UTC
`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]	[reply] [d/l] [select]
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]


XP is just a number
	PerlMonks