Shell Programming and Scripting

awk -F"," '
BEGIN{  OFS=",";
	f=0;
	i=1;
	while (getline < "7wordfile")
		{
			a[$1]++;b[i++]=$1
		}
}
{
	for (j=1;j<=NF;j++)
		{
			x=substr($j,length($j)-2,3);
			y=substr($j,length($j)-1,2);
			if(a[x])
				{
					a[x]=2;
					$j=substr($j,1,length($j)-4)
				}
			else
				{
					if(a[y])
						{
							a[y]=2;
							$j=substr($j,1,length($j)-3)
						}
				};
			if(a[$j])
				{
					a[$j]=2;
					f=1
				};
				
			if(f==1)
				{
					$j=z;
					f=0
				}
		};
	for(k=1;k<i;k++)
		{
			if(a[b[k]]==2)
				{
					a[b[k]]=1;
					for(l=1;l<=NF;l++) 
						{
							if(length($l))
								{
									printf $l"," > b[k]
								}
					
						};
					printf "\n"  > b[k]
				}
		}
}' input

FHIT ,Adenosine Monotungstate,Not Available CAD,HT,HT,T2D_Ado-P-Ch2-P-Ps-Ado_Not Available CAD,HT,HT,T2D
CS _Trifluoroacetonyl Coenzyme A_Not Available CAD,CAD,T1D_Alpha-Fluoro-Carboxymethyldethia Coenzyme a Complex_Not Available CAD,CAD,T1D,Nitromethyldethia Coenzyme A,Not Available CAD,CAD,T1D

awk -F"_" '
BEGIN{  OFS="_";
	f=0;
	i=1;
	while (getline < "7word")
		{
			a[$1]++;b[i++]=$1
		}
}
{
	for (j=1;j<=NF;j++)
		{
			n=split($j,sa," ");
			for(k1=1;k1<=n;k1++)
				{
					n2=split(sa[k1],sa2,",");
					
					for(k2=1;k2<=n2;k2++)
						{
							if(a[sa2[k2]])
								{
									a[sa2[k2]]=2;
									f=1
								}
						}
				};
				
			if(f==1)
				{
					
					$j=substr($j,1,match($j,",")-4);
					f=0
				}
		};
	for(k=1;k<i;k++)
		{
			if(a[b[k]]==2)
				{
					a[b[k]]=1;
					for(l=1;l<=NF;l++) 
						{
							if(length($l))
								{
									printf $l"," > b[k]
								}
					
						};
					printf "\n"  > b[k]
				}
		}
}' input