Shell Programming and Scripting

     1  2  3  4  5  6  7
abr  5  6  7  1  2  4  5
hhr  2  1  3  4  2  1  2
iip   1  3  1  1  5  3  2

4  5  5.5  3  4.5  4  4.5

$
$
$ cat data.txt
     1  2  3  4  5  6  7
abr  5  6  7  1  2  4  5
hhr  2  1  3  4  2  1  2
iip  1  3  1  1  5  3  2
$
$
$ perl -lane 'if ($. > 1) {
                $n++;
                foreach $i (1..$#F) { push @{$x{$i}}, $F[$i] }}
              END {
                foreach $k (sort keys %x) {
                  $sum += $_ foreach @{$x{$k}};
                  $str .= sprintf("%.4f ", $sum/$n);
                  $sum = 0;
              }
              print $str}
             ' data.txt
2.6667 3.3333 3.6667 2.0000 3.0000 2.6667 3.0000
$
$
$

lines=`cat data.txt | wc -l`  #corrected, thanks to itkamaraj
lines=$((lines-1))
for i in $(seq 2 201); do
 awk -v c=$i -v l=$lines 'NR>1 {s+=$c}; END {printf ("%f ", s/l)}' data.txt
done
echo

for i in $(seq 2 201); do
 awk -v c=$i 'NR>1 {s+=$c;l+=1}; END {printf ("%f ", s/l)}' data.txt
done
echo

 
lines=`echo data.txt | wc -l`

lines=`cat data.txt | wc -l`

 
wc -l < data.txt
or
wc -l data.txt

$ wc -l test
4 test
$ cat test | wc -l
4

$ a=`wc -l test`
$ [ $a -gt 0 ] && echo Works
bash: [: Too many arguments