Shell Programming and Scripting

#!/usr/bin/ksh
print "\c" > sum_divide_final
for i in `cut -f1 -d" " sum_divide.dat | uniq`
do
dividend=0
divider=0
        for j in `grep $i sum_divide.dat | cut -f3 -d" "`
        do
                (( divider = divider + j ))
        done
        for j in `grep $i sum_divide.dat | cut -f4 -d" "`
        do
                (( dividend = dividend + j ))
        done
finalresult=$(print "scale = 2; $dividend/$divider" | bc)
print "$i"" ""$finalresult" >> sum_divide_final
done

BEGIN{
IFS=" "
OFS=" "
}
{
arr3[$1]+=$3
arr4[$1]+=$4
}
END{
for(item in arr3)
{
        arr5[item]=arr4[item]/arr3[item]
}
for(item in arr5)
{
        print item " " arr5[item]
}
}

#!/usr/bin/ksh

prev="###"
sum1=0
sum2=0
while read i
do
curr=`echo $i | cut -f1 -d" "`
val1=`echo $i | cut -f3 -d" "`
val2=`echo $i | cut -f4 -d" "`

if [ \( $curr != $prev \) -a \( $prev != "###" \) ]
then
final=$(print "scale = 2; $sum2/$sum1" | bc)
echo $prev $final
sum1=0
sum2=0
fi

sum1=$(($sum1 + $val1))
sum2=$(($sum2 + $val2))

prev=$curr
done < input.file > output.file

final=$(print "scale = 2; $sum2/$sum1" | bc)
echo $prev $final >> output.file

exit 0

{ if ( $1 == old_word )
  { split( old_line, a )
    print $1, (a[4]+$4)/(a[3]+$3)
    old_word = old_line = ""
  }
  else
  { if ( old_line )
    { split ( old_line, a)
      print a[1], a[4]/a[3]
    }
    old_word = $1; old_line = $0
  }
}