in reply to How to find all occurrences of a key in a deeply nested structure?
The Data::Search module is a perfect fit for your problem.
Working, tested code:
use strict; use warnings; use Data::Search; use Data::Dumper; $Data::Dumper::Useqq=1; $Data::Dumper::Terse=1; my $href = { foo => { child1 => { gchild1 => { values => { bar1 => 1, bar2 => 1 } } }, child2 => { gchild1 => { values => { bar1 => 1, bar9 => 1 } }, gchild2 => { values => { bar2 => 1, bar3 => 1 } }, }, child3 => { values => { bar1 => 1, bar2 => 1, bar4 => + 1, bar5 => 1 } }, }, }; for my $wanted ( qw( bar5 bar3 bar2 ) ) { my @results = datasearch( data => $href, search => 'keys', find => qr{ \A $wanted \z }msx, return => 'container', ); print "Found key '$wanted' in these hashrefs: ", Dumper @results; }
Output:
Found key 'bar5' in these hashrefs: { "bar1" => 1, "bar4" => 1, "bar2" => 1, "bar5" => 1 } Found key 'bar3' in these hashrefs: { "bar2" => 1, "bar3" => 1 } Found key 'bar2' in these hashrefs: { "bar2" => 1, "bar3" => 1 } { "bar1" => 1, "bar4" => 1, "bar2" => 1, "bar5" => 1 } { "bar1" => 1, "bar2" => 1 }
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: How to find all occurrences of a key in a deeply nested structure?
by deMize (Monk) on Oct 20, 2011 at 15:38 UTC |
In Section
Seekers of Perl Wisdom