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

I need to merge two hashes

@val=({23=>1, 43=>1, 34=>1, 66=>1, 99=>1},{33=>1, 64=>1, 35=>1, 54=>1,
+ 78=>1});

[download]

here we have 1 array within two hashes, now i want merge the two hashes and store as 2nd value of array

means

@val=({23=>1, 43=>1, 34=>1, 66=>1, 99=>1},{33=>1, 64=>1, 35=>1, 54=>1, 78=>1}, {23=>1, 43=>1, 34=>1, 66=>1, 99=>, 33=>1, 64=>1, 35=>1, 54=>1, 78=>1});

I have tried below code

$val[2]={$val[0], $val[1]};

[download]

It shows compilar error, so please guide me on this

Replies are listed 'Best First'.
Re: Merging hash
by BrowserUk (Patriarch) on Oct 04, 2011 at 11:08 UTC

    Be aware that if the two smaller hashes contain the same key, then the value that ends up in the composite hash will depend upon the order you list the smaller hashes in the composing statement:

    @val=({23=>1, 43=>1, 34=>1, 66=>1, 99=>1},{33=>1, 64=>1, 35=>1, 54=>1,
+ 78=>1});;

pp \@val;;
[
  { 23 => 1, 34 => 1, 43 => 1, 66 => 1, 99 => 1 },
  { 33 => 1, 35 => 1, 54 => 1, 64 => 1, 78 => 1 },
]


$val[2] = { %{ $val[0] }, %{ $val[ 1 ] } };;

pp \@val;;
[
  { 23 => 1, 34 => 1, 43 => 1, 66 => 1, 99 => 1 },
  { 33 => 1, 35 => 1, 54 => 1, 64 => 1, 78 => 1 },
  { 23 => 1, 33 => 1, 34 => 1, 35 => 1, 43 => 1, 54 => 1, 64 => 1, 66 
+=> 1, 78 => 1, 99 => 1 },
]

    [download]
    Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
    "Science is about questioning the status quo. Questioning authority".
    In the absence of evidence, opinion is indistinguishable from prejudice.
[reply]
[d/l]

      It's working :)

[reply]

Back to Seekers of Perl Wisdom