按照value排序顺序输出对应的key和value，且value只输出一次

yilongyansha

1. %hash=(
   
2.   "14:39:43 qwe" => "1",
   
3.   "14:23:21 asd" => "2",
   
4.   "14:42:44 qzfg" => "1",
   
5.   "15:39:43 fers" => "3",
   
6.   "12:34:43 qwe" => "1",
   
7.   "14:39:43 jgoe" => "4",
   
8.   "14:40:36 qwe" => "3",
   
9.   "15:59:43 45dhj" => "5",
   
10.   "15:05:45 styjk" => "6",
    
11.   "14:39:43 15gcc" => "5",
    
12. );
    
13. 
    
14. foreach my $k (sort {$hash{$a} <=> $hash{$b}} keys(%hash)){
    
15.     print "$hash{$k}\n";
    
16.     print "$k\n";
    
17. }

复制代码

输出的结果为

1. 1
   
2. 14:39:43 qwe
   
3. 1
   
4. 14:42:44 qzfg
   
5. 1
   
6. 12:34:43 qwe
   
7. 2
   
8. 14:23:21 asd
   
9. 3
   
10. 14:40:36 qwe
    
11. 3
    
12. 15:39:43 fers
    
13. 4
    
14. 14:39:43 jgoe
    
15. 5
    
16. 15:59:43 45dhj
    
17. 5
    
18. 14:39:43 15gcc
    
19. 6
    
20. 15:05:45 styjk

复制代码

如何实现得到这样的结果呢：

1. 1
   
2. 14:39:43 qwe
   
3. 14:42:44 qzfg
   
4. 12:34:43 qwe
   
5. 2
   
6. 14:23:21 asd
   
7. 3
   
8. 14:40:36 qwe
   
9. 15:39:43 fers
   
10. 4
    
11. 14:39:43 jgoe
    
12. 5
    
13. 15:59:43 45dhj
    
14. 14:39:43 15gcc
    
15. 6
    
16. 15:05:45 styjk

复制代码

MMMIX

回复 1# yilongyansha


    先把 %hash 反转一下（key 变 value, value 变 key）再输出会简单许多。若是 %hash 是你自己构造的话，那在一开始就用当前的 value 做 key。

====

Oops，相同的问题楼主已经问过，相同的回复我也已经给过。

yilongyansha

回复 2# MMMIX

反转之后会有重复的 key 吧，会覆盖掉前面的value
   

MMMIX

回复 3# yilongyansha


    value 用个数组嘛

jason680

回复 1# yilongyansha

foreach my $k (sort {$hash{$a} <=> $hash{$b}} keys(%hash)){
    print "$hash{$k}\n";
    print "$k\n";
}

change to

my $last = "";
foreach my $k (sort {$hash{$a} <=> $hash{$b}} keys(%hash)){
    print "$hash{$k}\n" if($last ne $hash{$k});
    print "$k\n";
    $last = $hash{$k};
}

   

815138698

如何reverse同时又将value放在数组里面呢？回复 4# MMMIX


   

rubyish

回复 6# 815138698

Inverting a hash

1. #!/usr/bin/perl
   
2. use 5.022;
   
3. 
   
4. my %hash = (
   
5.     "14:39:43 qwe"   => "1",
   
6.     "14:23:21 asd"   => "2",
   
7.     "14:42:44 qzfg"  => "1",
   
8.     "15:39:43 fers"  => "3",
   
9.     "12:34:43 qwe"   => "1",
   
10.     "14:39:43 jgoe"  => "4",
    
11.     "14:40:36 qwe"   => "3",
    
12.     "15:59:43 45dhj" => "5",
    
13.     "15:05:45 styjk" => "6",
    
14.     "14:39:43 15gcc" => "5",
    
15. );
    
16. 
    
17. my %inverse;
    
18. while ( my ( $v, $k ) = each %hash ) {
    
19.     push @{ $inverse{$k} }, $v;
    
20. }
    
21. 
    
22. for my $k ( sort { $a <=> $b } keys %inverse ) {
    
23.     say for $k, @{ $inverse{$k} };
    
24. }
    

复制代码

shuchu

1. 1
   
2. 14:39:43 qwe
   
3. 14:42:44 qzfg
   
4. 12:34:43 qwe
   
5. 2
   
6. 14:23:21 asd
   
7. 3
   
8. 14:40:36 qwe
   
9. 15:39:43 fers
   
10. 4
    
11. 14:39:43 jgoe
    
12. 5
    
13. 14:39:43 15gcc
    
14. 15:59:43 45dhj
    
15. 6
    
16. 15:05:45 styjk
    

复制代码