Shell Programming and Scripting

SNO,Data1,Data2,Data3
1,2,3,4
2,3,4,SOME STRING
3,4,Inf,5
4,5,4,4

SNo,Data1
1,2
2,3
3,4
4,5

awk -F, '{ if(NR==1){a=split($0,P,",")};
for(i=1;i<=NF;i++){if($i !~ /[A-z]/ || NR==1){arr[NR,P[i]]=$i}else{K[++t]=i}}}
END{for(i in K){P[K[i]]=0}}
END{for(i=1;i<=NR;i++){
for(j=1;j<=NF;j++){if(arr[i,P[j]] != ""){s=s?s","arr[i,P[j]]:arr[i,P[j]]}}
print s;s=""}
}' file

awk -F, 'NR>1{for (i=1;i<=NF;i++) if ($i~"[^0-9]") print i}' file| sort | uniq | awk -F, 'NR==FNR{a[$0]=1;next}{for (i=1;i<=NF;i++) if (!(i in a)) printf $i",";printf "\n"}' - file

awk 'FNR==NR{
if(FNR>1 && $0 !~ /^[0-9, \t]$/)
 for(i=1;i<=NF;i++)
  if(!(i in drop) && $i !~ /^[0-9, \t]$/)
   drop[i]
next}
{t="";n=1
for(i=1;i<=NF;i++)
 if(!(i in drop))
  t=(n++ == 1)? $i : t FS $i
$0=t
}1' FS=, file file

awk -F, '{for (i=1;i<=NF;i++) {
             Ar[NR,i] = $i
             if (NR>1) L[i] = L[i] || $i !~ /^[0-9]*$/
            }
         }
         END {for (j=1;j<=NR;j++)
                {for (i=1;i<=NF;i++)
                  if (!L[i]) printf "%s%s", (i>1)?",":"", Ar[j ,i]
                 print""
                }
             }
        ' file

Type,Data1,Data2,Data3 
A,2,3,4 
B,3,4,SOME STRING 
C,4,Inf,5 
D,5,4,4