Shell Programming and Scripting

1159,310,       159797120,159817366,    
142,199,218,91, 26551038,26551729,26552411,26552894,    
91,273,349,     26481990,26482133,26482477,

19087
549	483	265
52	71

159817366-159797120-1159=19087
26551729-26551038-142=549	26552411-26551729-199=483	26552894-26552411-218=265
26482133-26481990-91=52	26482477-26482133-273=71

awk '{split($1,P,",");n=split($2,Q,",");for(i=1;i<=(n-2);i++){printf Q[i+1]-Q[i]-P[i] " "}print ""}' file

awk '{split($1,c1,",")
no_of_c2=split($2,c2,",")
for(i=2;i<no_of_c2;i++)
 printf "%d\t", c2[i]-c2[i-1]-c1[i-1]
printf "\n"
}' file

perl -ane '@c1=split /,/,$F[0];
@c2=split /,/,$F[1];
for($i=1;$i<@c2;$i++) {printf "%d\t",$c2[$i]-$c2[$i-1]-$c1[$i-1]}
print "\n"' file