Code: 1 #!/usr/bin/perl
2 #
3 #
4 #
5
6 use strict;
7
8 my %people = (
9 "charlie" => "",
10 "fred" => "",
11 "joe" => "",
12 "betsy" => ""
13 );
14 my %comp = (
15 "charlie" => "crap",
16 "joe" => "cool",
17 "zander" => "crap"
18 );
19
20 # when comp has values for people, write over the people value.
21 while ( (my $key1, my $value1 ) = each %people) {
22 if (defined ( $comp{$key1} ) ) {
23 $people{$key1} = $comp{$key1}
24 }
25 }
26
27 # print hash function:
28 while ( (my $key, my $value ) = each %people) {
29 print "$key \t $value\n";
30 }
Output: $ ./matchHashes-a_with_b_valuesbetsyjoe coolcharlie crapfred
$ |