perl 哈希问题

yilongyansha

%hash1=(
"a"=>"abc",
"b"=>"bzj",
"c"=>"dsgv",
"b"=>"fdhv",
"d"=>"fgs",
"a"=>"ned",

...... ,

"a"=>"gre"
"f"=>"fsav",
);
...... 代表中间有很多keys和values
hash1中的key有可能出现1次，2次、3次或4次；

如何找出hash1中的key只出现过2次的(不管它们的value是多少)，并把这种key作为另一个hash2表的key,hash2中key对应的value还是不变
如上面的hash1中只有"b"出现过两次，得到%hash2为：
%hash2=(
"b"=>"bzj",
"b"=>"fdhv",
);

MMMIX

回复 1# yilongyansha


    hash 中的 key 不允许重复的.

yilongyansha

回复 2# MMMIX

啊，对，忘记这茬了，那如果hash1的key作为value，value作为key呢，因为value没有重复的，这里的hash1就是：

%hash1=(
"abc"=>"a",
"bzj"=>"b",
"dsgv"=>"c",
"fdhv"=>"b",
"fgs"=>"d",
"ned"=>"a",

...... ,

"gre"=>"a"
"fsav"=>"f",
);

得到的hash2为：
  %hash2=(
"bzj"=>"b",
"fdhv"=>"b",
);

MMMIX

回复 3# yilongyansha


    你这个 %hash1 是哪来的? 自己创建的? 那创建的时候还是用 "a", "b" 之类做 key, 不过它们对应的 value 用 array reference 就是了, 完了再循环一遍找出你需要的信息即可.

yilongyansha

回复 4# MMMIX
%hash1是自己创建的

"a" "b"之类的作为key会有重复，重复的后面的key会覆盖前面的吗
   

rubyish

key: string
value: array ref

%h
b => [ bbc, asd ], a => [ abc, xyz, pop ]

1. #!/usr/bin/perl
   
2. 
   
3. my %h;
   
4. 
   
5. while (<DATA>) {
   
6.     my ( $k, $v ) = split;
   
7.     push @{ $h{$k} }, $v;
   
8. }
   
9. 
   
10. __DATA__
    
11. a   abc
    
12. b   bbc
    
13. a   xyz
    
14. a   pop
    
15. b   asd
    

复制代码