sort 如何只取最大列的第一行

clfsy

有如下列子cat test:
    Hold                           1397452   43952 (3%)       450 (0%)         1353050 (96%)
    Hold                           1397452   44039 (3%)       363 (0%)         1353050 (96%)
    Hold                           1397452   44042 (3%)       360 (0%)         1353050 (96%)
    Hold                           1397452   44131 (3%)       271 (0%)         1353050 (96%)
    Hold                           1397452   44262 (3%)       140 (0%)         1353050 (96%)
    Setup                          1397449   41515 (2%)       2884 (0%)        1353050 (96%)
    Setup                          1397449   44222 (3%)       177 (0%)         1353050 (96%)
    Setup                          1397449   44399 (3%)       0 (0%)           1353050 (96%)
    Setup                          1397449   44399 (3%)       0 (0%)           1353050 (96%)


有没有经过一个排序以后只取第一列相同的第四列最大的那一行。

结果cat result：
    Hold                           1397452   43952 (3%)       450 (0%)         1353050 (96%)
    Setup                          1397449   41515 (2%)       2884 (0%)        1353050 (96%)

不考虑其他列的值大小。


谢谢。

haooooaaa

1. awk 'NR==FNR{a[$1]=a[$1]>$5?a[$1]:$5;next}a[$1]==$5' a a
   
2.     Hold                           1397452   43952 (3%)       450 (0%)         1353050 (96%)
   
3.     Setup                          1397449   41515 (2%)       2884 (0%)        1353050 (96%)
   

复制代码

clfsy

haooooaaa 发表于 2017-05-15 09:34

多谢楼上兄弟指教。想在多问一句，除了AWK意外，有没有sort 一个option可以搞定这件事情的啊？
我man了一下 sort 没找到这样类似的option。。


再次感谢楼上答疑

jason680

http://bbs.chinaunix.net/thread-4261915-1-1.html

clfsy

回复 4# jason680

不明白你说的意思， 你链接的那个是我问的另外一个问题，两个问题我觉得完全是两种需求的。
一个是累计相加，现在的问题是找出最大的一行。
不一样的问题点啊。


至于问题没有描述清楚是什么情况？
请大侠 指教的详细一点。

谢谢

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my @aData = do{local $_ = <DATA>; [split]};
   
6. while(<DATA>){
   
7.         my @aT = split;
   
8.         if($aData[-1][0] ne $aT[0]){
   
9.                 push(@aData, [@aT]);
   
10.                 next;
    
11.         }
    
12.         $aData[-1] = [@aT] if($aData[-1][4] < $aT[4]);
    
13. }
    
14. 
    
15. print "@{$_}\n" for @aData;
    
16. 
    
17. __DATA__
    
18. Hold                           1397452   43952 (3%)       450 (0%)         1353050 (96%)
    
19. Hold                           1397452   44039 (3%)       363 (0%)         1353050 (96%)
    
20. Hold                           1397452   44042 (3%)       360 (0%)         1353050 (96%)
    
21. Hold                           1397452   44131 (3%)       271 (0%)         1353050 (96%)
    
22. Hold                           1397452   44262 (3%)       140 (0%)         1353050 (96%)
    
23. Setup                          1397449   41515 (2%)       2884 (0%)        1353050 (96%)
    
24. Setup                          1397449   44222 (3%)       177 (0%)         1353050 (96%)
    
25. Setup                          1397449   44399 (3%)       0 (0%)           1353050 (96%)
    
26. Setup                          1397449   44399 (3%)       0 (0%)           1353050 (96%)
    

复制代码

799029078

sort应该有根据某一列排序

Shell_HAT

回复 3# clfsy


sort可以排序，但是不能取

chengchow

排序不是计算，在sort看来
999是大于8888888的