Re: Merge 2 hashes which contains duplicate Keys

[davido]

It's been done.

use strict;
use warnings;
use Hash::Merge;
use Data::Dumper;


my %hash1 = ( this  => 1, that => 2, the   => 3, other => 4  );
my %hash2 = ( those => 1, them => 2, thine => 3, other => 42 );

my %merged = %{ Hash::Merge->new('RETAINMENT_PRECEDENT')->merge( \%has
+h1, \%hash2 ) };

print Dumper \%merged;

Hash::Merge can merge arbitrarily deep hashes, following pre-defined rules for key conflict resolution.

[slayedbylucifer]

Thanks Dave. yes, I had gone through the Hash::Merge and it is a life savior. I want to learn more about perl data structure and hence trying things on my own without taking help from any module. Thanks for your time.

[DavidH]

Thanks from one Dave to another, saved me HEAPS of time, what an awesome module!

[davido]

You are welcome. :) Makes me happy to hear something I wrote several years ago ended up being helpful later on.