四组hash，有相同键的hash打印出来

小猪Gina

如：hash1
前两列是键，后三列是值
a1   +   10   20   ab
a1   -    5     10   ac
a2   +   14   25    --
a2   -   52   17    ++

hash2
a1    +   15   27   gh
a1    -     8    2     ac
a2    +    3    50    --
a3    -    52   17   ++
a4    -     8    2     ac
a5    +    3    50    --
a6    -    52   17   ++

hash3
aa    +   15   27   gh
ab    -     8    2     ac
a1   +    3    50    --
a2    -    52   17   ++

hash4
a1    +   15   70   gh
a1    -     8    2     ac
a2    +    3    50    --
a3    -    52   17   ++

并且要求 第四列，hash2的值<=hash3的值<=hash4的值<=hash5的值

所以输出：
a1   +   10   20   ab   （hash1）
a1    +   15   27   gh   （hash2）
a1   +    3    50    --   （hash3）
a1    +   15   70   gh   （hash4）

大侠~帮帮我吧~感激啊~

小猪Gina

自己解决了。。。

rubyish

练习练习:

1. #!/usr/bin/perl
   
2. my %h;
   
3. while (<DATA>) {
   
4.     my @a = split;
   
5.     push @{$h{"@a[0,1]"}}, [$a[3], $_];
   
6. }
   
7. print map { $_->[1] } sort { $a->[0] <=> $b->[0] } @{$h{$_}}
   
8.         for sort keys %h;
   
9. __DATA__
   
10. a1   +   10   20   ab
    
11. a1   -    5     10   ac
    
12. a2   +   14   25    --
    
13. a2   -   52   17    ++
    
14. a1    +   15   27   gh
    
15. a1    -     8    2     ac
    
16. a2    +    3    50    --
    
17. a3    -    52   17   ++
    
18. a4    -     8    2     ac
    
19. a5    +    3    50    --
    
20. a6    -    52   17   ++
    
21. aa    +   15   27   gh
    
22. ab    -     8    2     ac
    
23. a1   +    3    50    --
    
24. a2    -    52   17   ++
    
25. a1    +   15   70   gh
    
26. a1    -     8    2     ac
    
27. a2    +    3    50    --
    
28. a3    -    52   17   ++

复制代码

小猪Gina

回复 3# rubyish


    嘿嘿~还是谢谢你~

reyleon

1. [root@centos ~]# cat urfile
   
2. a1   +   10   20   ab
   
3. a1   -    5     10   ac
   
4. a2   +   14   25    --
   
5. a2   -   52   17    ++
   
6. 
   
7. hash2
   
8. a1    +   15   27   gh
   
9. a1    -     8    2     ac
   
10. a2    +    3    50    --
    
11. a3    -    52   17   ++
    
12. a4    -     8    2     ac
    
13. a5    +    3    50    --
    
14. a6    -    52   17   ++
    
15. 
    
16. hash3
    
17. aa    +   15   27   gh
    
18. ab    -     8    2     ac
    
19. a1   +    3    50    --
    
20. a2    -    52   17   ++
    
21. 
    
22. hash4
    
23. a1    +   15   70   gh
    
24. a1    -     8    2     ac
    
25. a2    +    3    50    --
    
26. a3    -    52   17   ++
    
27. [root@centos ~]# awk '{a[$1,$2]=a[$1,$2]?a[$1,$2]"\n"$0:$0}END{for(i in a)if(a[i]~/a1 +\+/)print a[i]}' urfile|column -t
    
28. a1  +  10  20  ab
    
29. a1  +  15  27  gh
    
30. a1  +  3   50  --
    
31. a1  +  15  70  gh
    
32. [root@centos ~]#

复制代码

小猪Gina

回复 5# reyleon


    谢谢你~一直忘了上来看了，才回复你~抱歉~