Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

Traversing a complex data structure searching for certain keys and printing their values

by newperluser2013 (Novice)
on Apr 28, 2013 at 22:46 UTC ( #1031118=perlquestion: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    "nfs" => {
          "%comment" => "Properties for an NFS mount definition",
    ...
            "%type" => "string"
          }
        }
    
  2. or download this
    
    {
    ...
                        "@ridge": "/vol/home2_c"
                    }
                },
    
  3. or download this
    sub recurse_hash {
      my($hash,@findkeys) = @_;
    ...
      }
    }
    
  4. or download this
    recurse_hash(\%$decoded_json_obj,"@keylist");
    
  5. or download this
    recurse_hash(\%$decoded_json_obj,"%export_name","%filer_device","%file
    +r_volume","%mount_acl","%mount_group","%mount_opts");
    
  6. or download this
    /links:nydevnfs_links:/vol/links:0755:root:root:nfsvers=3,timeo=600,re
    +trans=2
    /links:rnap7750-s:/vol/links_c:0755:root:root:nfsvers=3,timeo=600,retr
    +ans=2
    ...
    /home8:nydevnfs_home2:/vol/home2:0755:root:root:nfsvers=3,timeo=600,re
    +trans=2
    /home8:rnap2114-s:/vol/home2_c:0755:root:root:nfsvers=3,timeo=600,retr
    +ans=2
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://1031118]
Approved by LanX
Front-paged by toolic
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (12)
As of 2014-10-31 15:15 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (219 votes), past polls