joining 2+ hashes/associate arrays

[lleemon]

Sorry if this is too simple of a question but, if I have two associate arrays how can I combine them into one?

%hash1 = (
'key1', 'value1',
'key2', 'value2',
);

%hash2 = (
'key3', 'value3',
'key4', 'value4',
)

%mainhash = ???

Or can I just add one hash to another?

Thanks for the help in advance.

 

[toolkit]

From the Perl Cookbook by Tom Christiansen and Nathan Torkington. Recipe 5.10 Merging Hashes:

%merged = (%A,%B);

Or a more memory efficient method:

%merged = ();
while( ($k,$v) = each(%A) ) {
    $merged{$k} = $v;
}
while( ($k,$v) = each(%B) ) {
    $merged{$k} = $v;
}

Cheers, Neil

 

[MikeLacey]

%merged = (%A,%B);

neat....
Mike
"Experience is the comb that Nature gives us after we are bald."

Is that a haiku?
I never could get the hang
of writing those things.