Re: "Dynamically" Accessing a HoH


Problems? Is your data what you think it is?
	PerlMonks

Re: "Dynamically" Accessing a HoH

by monkey_boy (Priest)

on Jun 02, 2005 at 15:10 UTC ( [id://462947]=note: print w/replies, xml )

Need Help??

in reply to "Dynamically" Accessing a HoH

the 1st post would do it if you always only have two keys, if an unknown number of keys can be given try this...

#!/usr/bin/perl
use strict;
use warnings;


my $usr_str = "{depTar}{name}";
my @keys    = $usr_str =~ m/\{(.*?)\}/g;

my $xml  = { 'depTar' => { 'name' => 'c_p20', 'loc' => 'srvr1' }};
my $href = $xml;

for my $i (0 .. $#keys) {
       $href = $href->{$keys[$i]};
};

print $href;
[download]

Update: fixed spelling mistake

This is not a Signature...