請(qǐng)教匹配、按行求和排序問(wèn)題

vcuteym

待處理數(shù)據(jù)如下：
0.2  0.3  0.5    1
0.3  0.1   0.2   3
0.4  0.2   0.3   1
0.2  0.2   0.2    2
0.3  0.3   0.3    2
0.3   0.2   0.6   3
0.1   0.1   0.1   4
------------------------------------------
已知最后一列一定是正整數(shù)，最后一列最小值是1，最大值是已知的。數(shù)據(jù)處理要求：第一步，將最后一列相同的行相加（最后一列保持不變），如第2行和第6行最后一列都是3，兩行相加得到 0.6  0.3  0.8  3（最后一列保持不變，不加�。� 。第二步，按最后一列從小到大排序。

最后得到

0.6   0.5  0.8  1
0.5   0.5  0.5   2
0.6   0.3  0.8   3
0.1   0.1   0.1  4

謝謝！

moperyblue

1. awk '{for(i=1;i<NF;i++)a[$NF][i]+=$i}
   
2. END{
   
3.     for(i in a){
   
4.         for(j in a[i]){
   
5.             printf a[i][j] FS
   
6.         }
   
7.         print i
   
8.     }
   
9. }' file #gawk4.0+

復(fù)制代碼

vcuteym

回復(fù) 2# moperyblue

我的awk是3.15，不能用這個(gè)代碼，還是謝謝你
   

mswsg

試試python   http://72891.cn/thread-4244175-1-1.html

1. with open('1.txt', 'r') as f:
   
2.     alist = []
   
3.     d = {}
   
4.     lines = f.readlines()
   
5.     for line in lines:
   
6.         line = line.strip().split()
   
7.         alist.append(line)
   
8. 
   
9.     for i in alist:
   
10.         try:
    
11.             d[i[3]] += i[:-1]
    
12.         except KeyError:
    
13.             d[i[3]] = i[:-1]
    
14.     for course, score in d.items():
    
15.         if len(score) > 3:
    
16.             print course, float(score[0]) + float(score[3]), float(score[1]) + float(score[4]), \
    
17.             float(score[2]) + float(score[5])
    
18.         else:
    
19.             print course, ' '.join(score)

復(fù)制代碼

jason680

回復(fù) 1# vcuteym

$ awk '{k=$NF;b[k]=k;for(n=1;n<NF;++n)a[k,n]+=$n}END{t=asort(b);for(c=1;c<=t;++c){s="";k=b[c];for(n=1;n<NF;++n)s=s a[k,n]"\t";print s k}}' FILE
0.6        0.5        0.8        1
0.5        0.5        0.5        2
0.6        0.3        0.8        3
0.1        0.1        0.1        4


   

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. $" = "\t";
   
6. my @aStat;
   
7. open (my $fhR, 'sort -k4,4n f|') or die "File 'f' can't open!\n";
   
8. while (defined (my $sLine  = <$fhR>)){
   
9.     my @aLine = split / /, $sLine;
   
10.     if (!@aStat){
    
11.         @aStat = @aLine;
    
12.         next;
    
13.     }
    
14.     if ($aStat[-1] == $aLine[-1]){
    
15.         $aStat[$_] += $aLine[$_] for 0 .. $#aLine - 1;
    
16.         next;
    
17.     }
    
18.     print "@aStat\n";
    
19.     @aStat = @aLine;
    
20. }
    
21. close ($fhR);
    
22. print "@aStat\n";
    

復(fù)制代碼

vcuteym

回復(fù) 5# jason680
還是你厲害，請(qǐng)給我推薦一本awk和sed方面書(shū)學(xué)習(xí)一下，謝謝！
   

jason680

回復(fù) 7# vcuteym

1. [學(xué)習(xí)共享]Linux相關(guān)書(shū)籍(2015-07-10:更新ksh)
http://72891.cn/thread-1776727-1-1.html
   
2. The GNU Awk User’s Guide

3. awk初學(xué)之常見(jiàn)問(wèn)題
http://72891.cn/thread-2309494-1-1.html

4. awk數(shù)組的學(xué)習(xí)心得
http://72891.cn/thread-2312439-1-1.html

songyc_2015

回復(fù) 6# sunzhiguolu
最后少了一句print "@aStat\n";

tolilong

awk '{a[$4]+=$1;b[$4]+=$2;c[$4]+=$3}END{for(i in a) print a[i],b[i],c[i],i}' tt1 | sort -f"" -k4
0.6 0.5 0.8 1
0.5 0.5 0.5 2
0.6 0.3 0.8 3
0.1 0.1 0.1 4

試一下這個(gè).