Shell Programming and Scripting

nawk '{if($0~/\+|\=|print|\*\(\-\%/) {gsub(/[  \t]/,"");print} else {print}}' /tmp/test.t

void main() 
{ 
float radius, area; 
clrscr(); 
printf ("Enter the radius of a circle\n"); 
scanf ("%f", &radius); 
area = PI * pow (radius,2); 
printf ("Area of a circle = %5.2f\n", area); 
}

void main() 
{ 
float radius, area; 
clrscr(); 
printf("Enter the radius of a circle\n"); 
scanf("%f", &radius); 
area=PI*pow(radius,2); 
printf("Area of a circle = %5.2f\n", area); 
}

 
perl -lne '$_=~s/\s+//g if /(\w+\s+)\=\s+(.+)/ && !/print/;print ' in

sed '/()/!s/ (/(/;s/ +/+/;s/ = /=/;s/ \* /*/g' filename