求教個(gè)awk的問題，煩高手解答

elu_ligao

1. awk '{if($2>30 || $2<25) print $0}' a.bak |sort |awk '{a[$3]+=$1};END{print $3,$2,a[$3]}'  

復(fù)制代碼

=>

1. awk '{if($2>30 || $2<25) print $0}' a.bak |sort |awk '{a[$3]+=$1};END{for(i in a)print i,a[i]}'  

復(fù)制代碼

反正$2你不關(guān)心

rogantianwz

回復(fù) 7# hejianbu437

1. awk '{if($2>35||$2<30) print $0}' a.txt | sort |awk 'BEGIN{i=1};{a[$3]=$2;b[$3]+=$1;};END{for(j in a) print j"\t" a[j]"\t" b[j]}'

復(fù)制代碼

damcool

1. sort -k3,3 t1.txt|awk '$2>30||$2<25{if (t!="" && t!=$3) {print t" "r" "s;s=0};s+=$1;r=$2;t=$3}END{print t" "r" "s}'
   

復(fù)制代碼

kernel69

來個(gè)perl

1. perl -lane '$h{$F[2],$F[1]}+=$F[0] if $F[1]>30||$F[1]<25;END{print "$_ $h{$_}" for keys %h}' t
   
2. xxxx90 41
   
3. qqqq35 91
   
4. mmmm15 77
   
5. zzzz50 16
   
6. ffff40 141
   
7. mmmm40 18

復(fù)制代碼

回復(fù) 1# hejianbu437