Shell Programming and Scripting

#!/bin/bash
var="bob:johnson:3454:jb@email.edu:test:fu.org::"
echo $var
found=`echo ${var} | tr ":" "\n" | grep "\#\#\#\#"`
found=`echo ${var} | tr ":" "\n" | grep "[0-9][0-9][0-9][0-9]"`
echo $found

var=`echo $var |awk -F: '{print $3 }'`

> echo "bob:johnson:3454:jb@email.edu:test:fu.org::" | tr ":" "\n" | grep "[0-9]\{4\}"
3454

#! /bin/bash
#set vars to file names
FileFC="FCformated.txt"
FileWHD="WHDformated.txt"
FileOut="NewFile.txt"

#set email ending to search for
MATCH_EM="@antioch.edu"

#delete the file, if it exists
rm ${FileOut} 2>/dev/null

#loop through file line by line
while read FileWHDline
   do
   #set vars to empty string
   EmailWHD=""
   FileFCline=""
   ID=""
   AntEmailField=""
   AntEmail=""
   EmailWHDwCom=""
   EmailWHDwCol=""
	#check for colon at end, if not add one
	case $FileWHDline in
        	*:) ;; 
        	*) FileWHDline="${FileWHDline}:" #no colon at end so put one in;;
	esac	
   #get email from file to search other file with
   EmailWHD=`echo ${FileWHDline} | tr ":" "\n" | grep "@"`
	#if blank write out original line and continue with next while loop
	if [ "$EmailWHD" == "" ]; then
   		echo "${FileWHDline}" >> ${FileOut}
		continue
	fi
	EmailWHDwCom="\,${EmailWHD}"
	EmailWHDwCol="\:${EmailWHD}"
   #Find line in FC file by looking for comma email
   FileFCline=`grep -i "${EmailWHDwCom}" ${FileFC}` 
	#if blank try with colon email
	if [ "$FileFCline" == "" ]; then
		#look for line with colon email
   		FileFCline=`grep -i "${EmailWHDwCol}" ${FileFC}` 
			#if blank write out original line and continue with next while loop
			if [ "$FileFCline" == "" ]; then
   				echo "${FileWHDline}" >> ${FileOut}
				continue
			fi
	fi
   #look for 7 digit num in string it will be the ID
   ID=`echo ${FileFCline} | tr ":" "\n" | grep "^[0-9][0-9][0-9][0-9][0-9][0-9][0-9]$"`
   #find coma seperated email field within line
   AntEmailField=`echo ${FileFCline} | tr ":" "\n" | grep ","`
	#if blank test for ID then write out and continue with next while loop
	if [ "$AntEmailField" == "" ]; then
		if [ "$ID" == "" ]; then
   			echo "${FileWHDline}" >> ${FileOut}
			continue
		fi
   		echo "${ID}:${FileWHDline}" >> ${FileOut}
		continue
	fi
   #get email out of email that ends with ARG string set above
   AntEmail=`echo ${AntEmailField} | tr "," "\n" | grep -m 1 "${MATCH_EM}"`
	#if blank test for ID then write out and continue with next while loop
	if [ "$AntEmail" == "" ]; then
		if [ "$ID" == "" ]; then
   			echo "${FileWHDline}" >> ${FileOut}
			continue
		fi
   		echo "${ID}:${FileWHDline}" >> ${FileOut}
		continue
	fi
   #if you made it to here you have both ID and email so wrap the orig line with them and write it out
   echo "${ID}:${FileWHDline}${AntEmail}" >> ${FileOut}
done<${FileWHD}

perl -ne '
while (@a=split(":"), $a[2] !~ /@/) { 
     if ($a[2] =~ /^[0-9]+$/) { 
       # delete the 3rd field
       splice(@a,2,1); 
     } 
     else { 
       # delete the 2nd field (middle name)
       splice(@a,1,1); 
     } 
     $_=join(":",@a); 
} 
# strip all but the first email address.
$a[2]=s/,.*//;
# Report results (separated by spaces -- see $\)
$\=" "; print "@a[0,1,2]\n"; '
'