咨询各位大侠 一个数据统计的问题

jsdb2002

我有2个这样的文件
文件A
37999998062  20                                   7529501.14
37999998111  7                                    7428729.48
37999998129  7                                    5003206.40
37999998137  3                                    1060998.15
37999998145  5                                    4335000.00
37999998153  3                                    1610926.22
文件B
37999997973       10       9616000.00
37999997999       12      28367970.64
37999998062       64      13440000.00
37999998111       14      16810602.98
37999998129        9       3132793.03

现在以这2个文件的第一列为准 如果有相同的 ，如：两个文件都有37999998111
则把对应的第二列相加（7＋14＝21），第三列相加（7428729.48 ＋16810602.98＝）得出新的一行。只要加起来的结果就行
如何做呢？

waker

awk 'NR==FNR{a[$1]=$2;b[$1]=$3}
NR>FNR&&a[$1]{print $1,$2+a[$1],$3+b[$1]} '  fileA fileB

jsdb2002

如果 第一列数值不同时在 A文件中 或 B文件中，也要原样输出，如何做呢？

另外能对语句做下大体解释嘛？

jsdb2002

另外 由于第三列数值较大
如何 在对加起来的值如何 用 printf 做下转换 如18.2f 这种 格式的？？

jsdb2002

自己再顶一下阿。。。。。。。。。

jsdb2002

有没有人能用sh去做阿？

在数据库中是搞定了，但建表，倒数据，select 方法比较笨些 ，请教各位大侠用shell如何能快速搞定阿 。

lovelyarry

1. open(DATAA,"data.a") || die ;
   
2. open(DATAB,"data.b") || die ;
   
3. 
   
4. @dataa=<DATAA>;
   
5. @datab=<DATAB>;
   
6. 
   
7. close(DATAA);
   
8. close(DATAB);
   
9. 
   
10. foreach $recb (@datab)
    
11. {
    
12.         ($idb,$cntb1,$cntb2)=split(' ',$recb);
    
13.         $i=0;
    
14.         $j=@dataa;
    
15.         foreach $reca (@dataa)
    
16.         {
    
17.                 ($ida,$cnta1,$cnta2)=split(' ',$reca);
    
18.                 if($ida==$idb)
    
19.                 {
    
20.                         $cnta1+=$cntb1;
    
21.                         $cnta2+=$cntb2;
    
22.                         $dataa[$i]=join(' ',$ida,$cnta1,$cnta2);
    
23.                         last;
    
24.                 }
    
25.                 else
    
26.                 {
    
27.                         $i++;
    
28.                 }
    
29.         }
    
30.         if($i==$j)
    
31.         {
    
32.                 $dataa[$i]=join(' ',$idb,$cntb1,$cntb2);
    
33.         }
    
34. }
    
35. 
    
36. foreach $rec (@dataa)
    
37. {
    
38.         ($id,$cnt1,$cnt2)=split(' ',$rec);
    
39.         printf(":%s:%d:%12.2f:\n",$id,$cnt1,$cnt2);
    
40. }

复制代码

lovelyarry

1. cat data.a data.b|awk '{a[$1]+=$2;b[$1]+=$3}END{for(i in a) printf "%s %d %18.2f\n",i,a[i],b[i]}'

复制代码

lovelyarry

郁闷，perl到底有没有必要搞了？！感觉太繁琐了！

jsdb2002

谢谢！ 我先试试 阿