Hi I am trying to upadte values of a subkey of a "hash of hash"
. I don't think code: $self->{$keyname}{$keysubname}=
$keyvalue; is the best way. What I try to acomplish is
that.. I have a bunch of get and set functions that try
to update the subkey values (husband, pal). but I want
these functions just to call a generic function
(updateSubkey) such that you supplying the names of the
keys and the key values then you will do the update.
this way, I centrazlise the main logic and any change is
requried to that one function and not requrie me to do
the same change to all the others.. e.g.
updatesubKey(flintstone,husband,"joe"); How can I do that? thanks

use Data::Dumper;  
my %HoH = (
    flintstones => {
        husband   => "fred",
        pal       => "barney",
    },
    jetsons => {
        husband   => "george",
        wife      => "jane",
        "his boy" => "elroy",  # Key quotes needed.
    },
    simpsons => {
        husband   => "homer",
        wife      => "marge",
        kid       => "bart",
    },
);

  sub new
    {
            my $class = shift;
            my %self  = %HoH; 
            bless \%self, $class; 
    }


sub updatename{
 
  my ($self, $keyname, $keysubname,$keyvalue)=@_;
  
  $self->{$keyname}{$keysubname}= {$keyvalue}; 
}


print Dumper(%HoH);
updatename("flintstones","husband","joe");
print Dumper(%HoH);
[download]