Hash::Path - A simple way to return a path of HoH
0.02
use Hash::Path; my $hash_ref = { key1 => { key2 => { key3 => 'value', }, }, }; my $wanted = Hash::Path->( $hash_ref, qw{key1 key2 key3} ); # $wanted contains 'value'
This module was written as proof of concept about how to find data inside a hash of hashes (HoH) with unknown structure. You can think that as hierarchical data like LDAP does, so our path could be the exactly the same as LDAP's dn, but a bit simpler because we (at least at this moment, who knows) don't want to deal with that.
path
dn
This is a perfect companion for traversing YAML:
use Hash::Path; use YAML; my ($hash_ref) = Load(<<'EOF'); --- name: john permissions: some-module: - read - write - execute another-module: - read EOF my $permissions = Hash::Path->get($hash_ref, qw(permissions some-module)); # $permissions contains [ 'read', 'write', 'execute' ]
$scalar = Hash::Path->get($hash_ref, @path);
This is the only available method. It traverses the hash reference using the supplied path array, returning the value as scalar value.
use Hash::Path qw(hash_path); $scalar = hash_path($hash_ref, @path);
Now you can export the hash_path function to be a bit shorter. The parameters it takes are the same as get.
hash_path
get
Thanks to Arthur Axel "fREW" Schmidt "<FREW@cpan.org>" for using this module and suggesting a better implementation for the get() method.
get()
Copyright (c) 2007, Igor Sutton Lopes "<IZUT@cpan.org>". All rights reserved.
This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
To install Hash::Path, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Hash::Path
CPAN shell
perl -MCPAN -e shell install Hash::Path
For more information on module installation, please visit the detailed CPAN module installation guide.