Hi,
I'm new to hashes, and I've been playing around with the
following for a while... I'm just not getting it.
I have two hashes, one containing data read in from a file,
one with "current" data. I'd like to merge the two, adding
any new keys and values into the hash, and for any keys that
exist in both, I'd like the append the values onto the values
for the same key in the original hash.
An example...
Hash 1 (from a file)
host1=>"760,760,759"
host2=>"765,760,760"
host5=>"130,200"
Hash 2 (Current)
host1=>"758"
host2=>"760"
host4=>"450"
host5=>"210"
I'd like the merged hash to be:
host1=>"760,760,759,758"
host2=>"765,760,760,760"
host5=>"130,200,210"
host5=>"450"
I'm using an example out of the perl cookbook, and trying to
modify it to do what I want, but it isn't working out...
The three hashes are:
%host_list (Hash 1 in the example)
%current_list (Hash 2 in the example)
%final_list (The result of the merge)
Here's the code I have so far for the merge (this is borrowed
heavily from the Perl Cookbook):
foreach $item ( \%host_list, \%current_list) {
while (($key, $value) = each %$item) {
if (exists $final_list{$key}) {
$value .= ",$current_list{$key}";
}
$final_list{$key} = $value;
}
}
Can someone point me in the right direction?
- Tony
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
