Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Hello monks basically i have a nested hash of type
$hash{$cookie}{$service}->[0];

[download]
here for every cookie there are many services
what i want to do is copy the the
contents of every cookie(ie a hash of service and values)
to another hash
can u help me

update (broquaint): title change

Replies are listed 'Best First'.
Re: Copying hash contents, from nested hash (was: a simple one)
by broquaint (Abbot) on Nov 03, 2002 at 13:39 UTC
    If you want deep clone of every cookie then you can just use the dclone method from Storable e.g 
    my %newhash = %{ dclone \%hash };

    [download]
    Or a copy per cookie 
    foreach (values %hash) {
   my %newcookie = %{ dclone $_ };
   # more code here
}

    [download]

    HTH

    _________
    broquaint

[reply]
[d/l]
[select]
Re: a simple one
by Tanalis (Curate) on Nov 03, 2002 at 13:05 UTC
    So, basically, you need to rehash the hash you have on service, and assign the value to it?

    The way I'd go about doing that (I'm sure there's a better way) would be something like .. (untested code) 

    my $servicehash;

foreach my $cookie (keys %hash)
  {
   foreach my $service (keys %{$hash{$cookie}})
     {
      $servicehash{$service} = $hash{$cookie}{$service};
     }
  }

    [download]

    That should leave you with a hash of values keyed on service.

    Hope that helps ..
    --Foxcub

[reply]
[d/l]
Re: a simple one
by fruiture (Curate) on Nov 03, 2002 at 13:00 UTC

    `perldoc perlref` will help you.

    %hash = (
     'a' => { 'aa' => [0,1,2] , 'ab' => [3,4,5] },
     'b' => { 'ba' => [6,7,8] , 'bb' => [9,10,11] },
);

my %a_hash = %{ $hash{a} };

    [download]
    --
    http://fruiture.de
[reply]
[d/l]
•Re: Copying hash contents, from nested hash (was: a simple one)
by merlyn (Sage) on Nov 03, 2002 at 14:04 UTC
[reply]

Back to Seekers of Perl Wisdom