UNIX for Dummies Questions & Answers

 
 
awk -F"|" '{gsub(":",";",$4)
n=split($4,A,";")
{v=$1"|"$2"|"$3"|"
for(i=1;i<=n;i++){
if(!i%2){
v=v":"int((A[i]/$3)*100+0.5)";"
}
else{
v=v""A[i]}}}
print v}' filename

awk -F'|' '
        {
                n = split ( $4, A, ";" )
                for ( i = 1; i <= n; i++ )
                {
                        split ( A[i], V, ":" )
                        a = sprintf ( "%0.f", ( V[2] / $3 ) * 100 )
                        v = v ? v ";" V[1] ":" a : V[1] ":" a
                }
                $4 = v
                v  = ""
        }
        1
' OFS='|' file