这个shell 大家会写吗? 用awk写!

zyx19855

1 2 3 4 5 6
1 2 3 4 5 6
1 2 3 4 5 6


用awk写的结果是:

1 2  3  4  5   6    11
1 2  3  4  5   6    11
1 2  3  4  5   6    11
3 8  9 12 15 18  33

第7个域的结果是前6个域的和,
最后一行的结果是前三行各个域的和!

寂寞烈火

1. 
   
2. while read a b c d e f;do ((sa+=a));((sb+=b));((sc+=c));((sd+=d));((se+=e));((sf+=f));((sg+=$((a+b+c+d+e+f))));echo $a $b $c $d $e $f $((a+b+c+d+e+f));done<ur-file;echo $sa $sb $sc $sd $se $sf $sg
   

复制代码

awk,;

1. 
   
2. awk '{a+=$1;b+=$2;c+=$3;d+=$4;e+=$5;f+=$6;g=(a+b+c+d+e+f);print $0,$1+$2+$3+$4+$5+$6}END{print a,b,c,d,e,f,g}'
   

复制代码

[ 本帖最后由 寂寞烈火 于 2008-6-17 18:16 编辑 ]

cjaizss

1. 
   
2. awk '{t=0;for(i=1;i<=6;i++){t+=$i;a[i]+=$i}printf("%s\t%d\n",$0,t)}END{for(i=1;i<=6;i++)printf("%d ",a[i]);printf("\n")}'
   

复制代码

[ 本帖最后由 cjaizss 于 2008-6-17 18:44 编辑 ]

ly5066113

原帖由 cjaizss 于 2008-6-17 18:26 发表

awk '{t=0;for(i=1;i

缺个功能，最后的一列也要累加：

1. awk '{t=0;for(i=1;i<=6;i++){t+=$i;a[i]+=$i;printf "%2s " ,$i}print t;a[7]+=t}END{for(i=1;i<=6;i++) printf "%2s " ,a[i];print a[7]}' urfile

复制代码

zyx19855

不错,谢了!

justlooks

awk 'BEGIN{sum=0}{for(i=1;i<=NF;i++){a[NR]+=$i;b+=$i;};printf("%s %s\n",$0,a[NR]);sum+=a[NR];}END{for(i in b){printf("%s ",b)};print sum}' ./datafile

kingsu

for i in b?
b是数组麽？

justlooks

原帖由 kingsu 于 2008-6-18 15:41 发表
for i in b?
b是数组麽？

for i in b 这句就是遍历b数组

kingsu

我是不明白b什么时候变成数组了。。。

我对数组绝望了。。。

justlooks

awk 'BEGIN{sum=0}{for(i=1;i<=NF;i++){a[NR]+=$i;b+=$i;};printf("%s %s\n",$0,a[NR]);sum+=a[NR];}END{for(i in b){printf("%s ",b)};print sum}' ./datafile


应该是这样，不好意思.........