求一列的和，awk和perl哪个快？

下午和群里的朋友争论了一下，有关awk和perl处理文本的速度，自己一直比较推崇perl，对awk知之甚少，结果就想当然的觉得perl快，结果一番争吵后，觉得还是实验一下靠谱，（其实是想证明一下perl确实很快……唉，找虐啊）

先是制造了一个文本，1200万行，大致内容如下

row.txt:

row1 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50

row2 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50

row3 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50

就是类似这种文本

然后就是用awk和perl，分别计算第四列的和

time awk '{ sum += $4 } END { printf "%.2f\n", sum }' row.txt 
36000003.00

real    0m4.020s
user    0m3.716s
sys    0m0.288s

time perl -ne '$sum+=$1 if /(?:.*?\s.*?){2}\s(\d).*/  ; END{printf "%.2f\n",$sum}' row.txt 
36000003.00

real    0m17.635s
user    0m17.320s
sys    0m0.256s

唉，正儿八经的扇了一回脸啊……

其实也正常，awk是C写的，而且对与列处理有专门的调优，这样比较一定是awk快的，只是自己对awk和sed一直有偏见，觉得有perl就用不上这俩货，结果……

记录下，给自己提个醒儿，以后没实践过的时候，不要乱说话…… T^T