Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

Re: How to find all occurrences of a key in a deeply nested structure?

by Util (Priest)
on Oct 20, 2011 at 15:07 UTC ( #932697=note: print w/replies, xml ) Need Help??


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
}

  • Comment on Re: How to find all occurrences of a key in a deeply nested structure?
  • Download Code

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

    Thank you. Right now, I'm going to use Data::Walk, because of my familiarity and its resemblance to File::Find. However, I'm definitely going to look into this, since it seems to have some additional useful features (less typing). This looks like something that I can use with another project as well.

    Edit: I just tested this out and it works well. Using this, I could loop through the results array, and add the keys of that hash to another array/hash to get one list of values.


    Cheers,

    Demize

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://932697]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (7)
As of 2020-06-01 13:38 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?