Shell Programming and Scripting

echo "Kindly insert the name:- "
read name
perl -i -wlanF'\:' -e '$F[2] =~ s/yes/no/i or $F[2] =~ s/no/yes/i if $F[0] eq "'$name'"  ;$"=":" ;  print "@F" ; ' infile.txt

#!/bin/ksh or bash
cat<<EOF > $0.txt
name:age:girlfriend
aa:11:yes
bb:22:yes
cc:33:no
dd:44:no
ee:55:yes
ff:44:
:44:no
aa:55:no:xx:zz
EOF


lastfld=0
flds[0]=""
val[0]=""
oifs="$IFS"
deli=":"

#####################################
setvar()
{
   str="$*"
   IFS="$deli"
   val=($str)
   IFS="$oifs"
   last=${#val[@]}
   f=0
   while (( f<=last && f<=lastfld ))
   do
        var="${flds[$f]}"
        value="${val[$f]}"
        eval $var=\"$value\"
        ((f+=1))
   done
}
#####################################
showvar()
{
   f=0
   outstr=""
   de="$deli"
   while ((f<=lastfld))
   do
        var="${flds[$f]}"
        eval value=\""\$$var"\"
        (( f == lastfld )) && de=""
        outstr="$outstr$value$de"
        ((f+=1))
   done
   echo "$outstr"
}

#####################################
clrvar()
{
   f=0
   while (( f <= lastfld ))
   do
        var="${flds[$f]}"
        eval $var=\"\"
        export $var
        ((f+=1))
   done
}

#####################################
colnames()
{   
    str="$*"
    IFS="$deli"
    flds=($str)
    IFS="$oifs"
    lastfld=${#flds[@]}
    ((lastfld-=1))
}
#####################################
# MAIN #
lineno=0
cat $0.txt | while read line
do  
    ((lineno+=1))
    (( lineno == 1 )) && colnames "$line" && continue
    clrvar   # clear all variables before new values
    setvar "$line"
    # after line parsing you can use variables 
    case "$name" in
        cc) girlfriend=yes ;;
    esac

    showvar
done