in reply to Iterate over a perl nested hash data structure
use Data::Diver qw( Dive ); my $nj_loc = Dive( $root, qw[ dev 0 nfsmount bigstor_nfs bigstor17_m +pt filer_device nj_loc ] ); [download]
JSON::Path