Shell Programming and Scripting

controlfile.txt
---------------
boy,/home/orig.txt,/home/join.txt,ravi;phani

conetent of /home/orig.txt
---------------------------
record
he is good
he is bad
end
conetent of /home/join.txt
--------------------------
record
ravi is boy
phani is boy
apurva is girl
pushpa is girl
sneha is girl
end
O/P
___
file name:boy_a.txt
content of boy_a.txt:
---------------------
record
ravi is boy
phani is boy
he is good
he is bad
end

controlfile.txt
---------------
girl,/home/orig.txt,/home/join.txt,apurva;pushpa;sneha
conetent of  /home/orig.txt
----------------------------
record
he is good
he is bad
end
conetent of /home/join.txt
---------------------------
record
ravi is boy
phani is boy
apurva is girl
pushpa is girl
sneha is girl
end
O/P:
___
file name:girl_a.txt
content of girl_a.txt:
-----------------------
record
apurva is girl
pushpa is girl
sneha is girl
he is good
he is bad
end

while read name,orig,append,paralist
do
cp /home/orig.txt $name_a.txt
echo "$paralist" > /home/temporary.txt
awk -F";" '{
for (i=1; i<NF; i++) 
{
cat echo $orig | grep -i $i >> /home/temp.txt
sed -ni '/\($i\)/p' ${orig}
}
}' /home/temporary.txt
sed -i '/record/r /home/temp.txt' $name_a.txt
done<controlfile.txt

awk '
        BEGIN {
                FS = "[ ,]"
        }
        NR == FNR {
                F = $1
                n = split ( $NF, R, ";" )
                for ( i = 1; i <= n; i++ )
                        C[R[i]] = F
                next
        }
        FILENAME == "join.txt" {
                if ( $1 in C )
                        O[++c] = $0
                next
        }
        FILENAME == "orig.txt" {
                if ( $0 ~ /record/ )
                {
                        print > F "_a.txt"
                        for ( i = 1; i <= c; i++ )
                                print O[i] > F "_a.txt"
                }
                else
                        print > F "_a.txt"
        }
' controlfile.txt join.txt orig.txt

awk -F, '               {FN=$1"_a.txt"
                         NN=split ($NF, NAMES, ";")
                         getline X < $2; print X > FN
                         while (getline X < $3) for (i=1; i<=NN; i++) if (match (X, NAMES[i]".*"$1)) print X > FN
                         while (getline X < $2)  print X > FN
                        }
        ' controlfile
record
apurva is girl
pushpa is girl
sneha is girl
he is good
he is bad
end