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
}
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.