关于shell合并行的问题

星期二

18：00  2  3  4  5  6  7
18：00  2  3  4  5  6  7
18：00  2  3  4  5  6  7
19：00  2  3  4  5  6  7
19：00  2  3  4  5  6  7
19：00  2  3  4  5  6  7
20：00  2  3  4  5  6  7
20：00  2  3  4  5  6  7
20：00  2  3  4  5  6  7

怎么把同一小时的 后面所有行相加合并呢？

awk '{s[$1]+=$2}END{for (a in s) print a,s[a] }'
这样写只能合并 第二项
或者
awk '{s[$1]+=$2;j[$1]+=$3}END{for (a in s) print a, s[a],j[a] }' 一直写很多
有没有更好的方法呢？

wtuter

[test]$ cat 4
18.00  2  3  4  5  6  7
18.00  2  3  4  5  6  7
18.00  2  3  4  5  6  7
19.00  2  3  4  5  6  7
19.00  2  3  4  5  6  7
19.00  2  3  4  5  6  7
20.00  2  3  4  5  6  7
20.00  2  3  4  5  6  7
20.00  2  3  4  5  6  7
[test]$ awk '{for(i=2;i<=NF;i++)a[$1]+=$i}END{for(i in a)print i,a}' 4
20.00 81
18.00 81
19.00 81

星期二

不是这个意思
是要这样的结果
18.00  6  9  12  15  18  21
19.00  6  9  12  15  18  21
20.00  6  9  12  15  18  21

dream3401

如果文件中的第一列是连续的,可以试试:
awk -v lastline=$(wc -l file|awk '{print $1}')  '{if(NR==1||$1==count[1]){count[1]=$1;for(j=2;j<=NF;j++) count[j]+=$j;}isequal=$1==count[1];if($1!=count[1]||NR==lastline){printf count[1]" ";count[1]=$1;for(j=2;j<=NF;j++){printf count[j]" ";count[j]=$j;}print "";}if(NR==lastline&&!isequal)print $0;}' file
看起来写的很复杂,期待更简单的写法!

[ 本帖最后由 dream3401 于 2009-3-25 07:33 编辑 ]

ywlscpl

我故意打乱了数据行顺序，如果最后结果要排序再加个管道sort

1. [root@Mylinux tmp]# cat file
   
2. 18：00  2  3  4  5  6  7
   
3. 19：00  2  3  4  5  6  7
   
4. 19：00  2  3  4  5  6  7
   
5. 18：00  2  3  4  5  6  7
   
6. 18：00  2  3  4  5  6  7
   
7. 19：00  2  3  4  5  6  7
   
8. 20：00  2  3  4  5  6  7
   
9. 20：00  2  3  4  5  6  7
   
10. 20：00  2  3  4  5  6  7
    
11. [root@Mylinux tmp]# awk '{split(a[$1],M," ");for (i=1;i<=6;i++) M[i]=M[i]+$(i+1);a[$1]=M[1]" "M[2]" "M[3]" "M[4]" "M[5]" "M[6]}END{for (j in a) print j" "a[j]}' file
    
12. 19：00 6 9 12 15 18 21
    
13. 18：00 6 9 12 15 18 21
    
14. 20：00 6 9 12 15 18 21

复制代码

[ 本帖最后由 ywlscpl 于 2009-3-25 07:53 编辑 ]

飞鸿无痕

原帖由 ywlscpl 于 2009-3-25 07:46 发表
我故意打乱了数据行顺序，如果最后结果要排序再加个管道sort
[root@Mylinux tmp]# cat file
18：00  2  3  4  5  6  7
19：00  2  3  4  5  6  7
19：00  2  3  4  5  6  7
18：00  2  3  4  5  6  7
18： ...

佩服，进步神速啊！！！

ly5066113

可以模拟个二维数组来做：

1. awk '{b[$1]++;for(i=2;i<=NF;i++) a[$1"-"i]+=$i}END{for(i in b){printf i;for(j=2;j<=NF;j++)printf " "a[i"-"j];print ""}}' urfile

复制代码

飞鸿无痕

原帖由 ly5066113 于 2009-3-25 09:14 发表
可以模拟个二维数组来做：

awk '{b[$1]++;for(i=2;i

第一次看到awk的二维数组，学习下先，谢谢！

merlin852

原帖由 ly5066113 于 2009-3-25 09:14 发表
可以模拟个二维数组来做：

awk '{b[$1]++;for(i=2;i

学习下

ubuntuer

tim的二维数组长见识