哈希問題求助

jiangphoenix

這是我自己寫的代碼，預(yù)想中的結(jié)果是這樣的：
Cate
Adam
但是實(shí)際結(jié)果是這個(gè)樣子的：
Cate
Cate
Cate
Cate
Adam
Adam
Adam
Adam

代碼如下
  1 #!/usr/bin/perl -w
  2
  3 use strict;
  4
  5 my %a = (
  6     'a' => '1',
  7     'b' => '2',
  8     'c' => '3',
  9     'd' => '4'
10     );
11
12 my %b = (
13     'a' => 'Adam',
14     'c' => 'Cate',
15     'e' => 'Eva',
16     'l' => 'Lily'
17     );
18
19 foreach my $a (keys %a) {
20     foreach my $b (keys %b) {
21         if (exists $b{$a}) {
22             print $b{$a}, "\n";
23         }
24     }
25 }

求懂得人幫我分析下，謝謝

白菜餃子餡

你可以試試把 $b在if代碼塊中打印一下，應(yīng)該跟你想的不太一樣

sunzhiguolu

這樣試下,

1. 
   
2. 19 foreach my $a (keys %a) {
   
3. 20
   
4. 21         if (exists $b{$a}) {
   
5. 22             print $b{$a}, "\n";
   
6. 23         }
   
7. 24
   
8. 25 }

復(fù)制代碼

104359176

你多嵌套了一層循環(huán)：

1. 1 #!/usr/bin/perl -w
   
2.   2
   
3.   3 use strict;
   
4.   4
   
5.   5 my %a = (
   
6.   6     'a' => '1',
   
7.   7     'b' => '2',
   
8.   8     'c' => '3',
   
9.   9     'd' => '4'
   
10. 10     );
    
11. 
    
12. 12 my %b = (
    
13. 13     'a' => 'Adam',
    
14. 14     'c' => 'Cate',
    
15. 15     'e' => 'Eva',
    
16. 16     'l' => 'Lily'
    
17. 17     );
    
18. 
    
19. foreach my $a (keys %a) {
    
20.      # foreach my $b (keys %b) {
    
21.          if (exists $b{$a}) {
    
22.              print $b{$a}, "\n";
    
23.          }
    
24.      #}
    
25. }

復(fù)制代碼

注釋的兩行是問題的根本，就好像你檢查 %a 中的 key, 是否在 %b 中存在，但檢查了 b 的 keyy 的數(shù)量的次數(shù)。

jiangphoenix

我是想取出這兩個(gè)哈希之間共同的keys，所以用了兩層循環(huán)，但是得出的結(jié)果不正確，如果想要得出這兩組哈希之間共同的keys那我該怎么做呀，謝謝回復(fù) 4# 104359176


   

jiangphoenix

我是想取出這兩個(gè)哈希中工頭的keys 如果只用一層循環(huán)的話 這樣可以篩選出結(jié)果么=。=， 謝謝回復(fù) 3# sunzhiguolu


   

jiangphoenix

好， 我試試回復(fù) 2# 白菜餃子餡


   

104359176

回復(fù) 5# jiangphoenix


    取出共同的 key, 一層循環(huán)就好了。

如果用 newLISP 就更加簡單了：

1. (intersect '(3 0 1 3 2 3 4 2 1) '(1 4 2 5))  
   
2. → (2 4 1)

復(fù)制代碼

這是取出兩個(gè)列表**同的值，如果是兩個(gè)散列，可以先取出 key

1. (map first @hash-one)

復(fù)制代碼

jiangphoenix

奧奧奧，非常感謝！回復(fù) 8# 104359176


   

sunzhiguolu

回復(fù) 6# jiangphoenix

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. 
   
4. my %a = (
   
5.     'a' => '1',
   
6.     'b' => '2',
   
7.     'c' => '3',
   
8.     'd' => '4'
   
9.     );
   
10. 
    
11. my %b = (
    
12.     'a' => 'Adam',
    
13.     'c' => 'Cate',
    
14.     'e' => 'Eva',
    
15.     'l' => 'Lily'
    
16.     );
    
17. 
    
18. foreach my $a (keys %a) {
    
19.     if (exists $b{$a}){
    
20.         print "$a\n";
    
21.     }
    
22. }
    

復(fù)制代碼