in reply to Re^2: Iterate over a perl nested hash data structure
in thread Iterate over a perl nested hash data structure
I want to be able to iterate through the nested hashes and and depending on what the name of one of the hashes is I want to then print out all the key/value pairs in that particular hash
You don't need to "iterate" over a hash to find a particular value (subhash), you can go straight to it. That is the whole point of hashes.
If you know the path to the hash you want to print, you can go straight there.
Eg. To dump the key/value pairs in the hash at $HoHoH{ C }{ 2 }:
#! perl -slw use strict; use Data::Dump qw[ pp ]; $Data::Dump::WIDTH = 100; my %HoHoH = map{ my $l1 = $_; $l1 => { map{ my $l2 = $_; $l2 => { map{ $_ => "$l1 $l2 $_" } 'a'..'d' } } 0 .. 4 }; } 'a'..'d'; pp \%HoHoH; ## print "key:$_ val: $HoHoH{ c }{ 2 }{ $_ }" for keys %{ $HoHoH{ c }{ 2 + } }; __END__ C:\test>junk30 { a => { "0" => { a => "a 0 a", b => "a 0 b", c => "a 0 c", d => "a 0 +d" }, 1 => { a => "a 1 a", b => "a 1 b", c => "a 1 c", d => "a 1 +d" }, 2 => { a => "a 2 a", b => "a 2 b", c => "a 2 c", d => "a 2 +d" }, 3 => { a => "a 3 a", b => "a 3 b", c => "a 3 c", d => "a 3 +d" }, 4 => { a => "a 4 a", b => "a 4 b", c => "a 4 c", d => "a 4 +d" }, }, b => { "0" => { a => "b 0 a", b => "b 0 b", c => "b 0 c", d => "b 0 +d" }, 1 => { a => "b 1 a", b => "b 1 b", c => "b 1 c", d => "b 1 +d" }, 2 => { a => "b 2 a", b => "b 2 b", c => "b 2 c", d => "b 2 +d" }, 3 => { a => "b 3 a", b => "b 3 b", c => "b 3 c", d => "b 3 +d" }, 4 => { a => "b 4 a", b => "b 4 b", c => "b 4 c", d => "b 4 +d" }, }, c => { "0" => { a => "c 0 a", b => "c 0 b", c => "c 0 c", d => "c 0 +d" }, 1 => { a => "c 1 a", b => "c 1 b", c => "c 1 c", d => "c 1 +d" }, 2 => { a => "c 2 a", b => "c 2 b", c => "c 2 c", d => "c 2 +d" }, 3 => { a => "c 3 a", b => "c 3 b", c => "c 3 c", d => "c 3 +d" }, 4 => { a => "c 4 a", b => "c 4 b", c => "c 4 c", d => "c 4 +d" }, }, d => { "0" => { a => "d 0 a", b => "d 0 b", c => "d 0 c", d => "d 0 +d" }, 1 => { a => "d 1 a", b => "d 1 b", c => "d 1 c", d => "d 1 +d" }, 2 => { a => "d 2 a", b => "d 2 b", c => "d 2 c", d => "d 2 +d" }, 3 => { a => "d 3 a", b => "d 3 b", c => "d 3 c", d => "d 3 +d" }, 4 => { a => "d 4 a", b => "d 4 b", c => "d 4 c", d => "d 4 +d" }, }, } key:c val: c 2 c key:a val: c 2 a key:b val: c 2 b key:d val: c 2 d
|
|---|