Shell Programming and Scripting

 perl -MIO::File -MList::Util=sum -e '@_=map{new IO::File$_,"r"}@ARGV;for(;;){print sum(map{exit unless <$_>}@_)/@_."\n"}' *

 nawk '{x[FNR]+=$0;y[FNR]++}END{while(y[++i]){printf("%.3f\n",x[i]/y[i])}}' *

#!/bin/bash

filecount=0
for file in data*.ip
do
sed -i -n '382976, $p' $file
sed -i 's/[.]/,/g' $file
filecount=$(( filecount + 1))
echo $filecount
done

paste data*.ip > data.ip

cat data.ip | awk '{ printf("%.12f\n", ($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+$51+$52+$53+$54+$55+$56+$57+$58+$59+$60+$61+$62+$63+$64+$65+$66+$67+$68+$69+$70+$71+$72+$73+$74+$75+$76+$77+$78+$79+$80+$81+$82+$83+$84+$85+$86+$87+$88+$89+$90+$91+$92+$93+$94+$95+$96+$97+$98+$99+$100)/100) }' > data.out

sed -i 's/[,]/./g' data.out

sed -i -n '382976, $p' $file
sed -i 's/[.]/,/g' $file

#!/bin/bash

filecount=0
for file in data*.ip
do
sed -i -n '${1}, $p' $file
sed -i 's/[.]/,/g' $file
filecount=$(( filecount + 1))
echo $filecount
done

#!/bin/bash

row=${1}
filecount=0
for file in data*.ip
do
sed -i -n 'row, $p' $file
sed -i 's/[.]/,/g' $file
filecount=$(( filecount + 1))
echo $filecount
done