Wednesday, July 20, 2005

calculating average using perl

perl -lan -e 'BEGIN{$sum=0;$num = 0}' -e '$sum += $F[0]; $num++; END{$avg=$sum/$num;print "avg:$avg"}' data.dat

to find the average of the first column in a file