Shell Programming and Scripting

I like reading books
I have five books
I love flowers
I am not allergic to flowers (list.txt)
...

books
flowers
house pet
cooking skills
...

.......|books|flowers|house pets| ...
mark |   2   |   2     | 0      |....
john  |   5   |   0     |  2     |...

mkdir result
FFILES="People/*"
for U in $FFILES
do
	docU=$(basename $U)
	docpathU=$(dirname $U)
	grep  -o -f accept-list.txt $U | sort | uniq -c | awk 'BEGIN{FS=" ";}{print $2,","$1}' > result/${docU}
done

mkdir result
FFILES="People/*"
awk 'BEGIN{printf "PeopleName"}{printf "|"$0}END{printf "\n"}' accept-list.txt >result/total_result #added
for U in $FFILES
do
 docU=$(basename $U)
 docpathU=$(dirname $U)
# grep  -o -f accept-list.txt  $U | sort | uniq -c | awk 'BEGIN{FS=" ";}{print $2,","$1}' > result/${docU} #comment
 grep -o -f accept-list.txt  $U|sort|uniq -c|awk '{s=$1;$1="";print $0","s}'|sed 's/^[[:blank:]]*//' > result/${docU} #modified
 awk -F',' -vn=${docU} 'NR==FNR{a[i++]=$0;next}{b[$1]=$2}END{printf n;for(i=0;i<length(a);i++){if(a[i] in b){printf "|"b[a[i]]}else{printf "|\t"}}printf "\n"}' accept-list.txt  result/${docU}>>result/total_result #added
done

awk '
        NR == FNR {
                P[$0]
                next
        }
        {
                if ( ! ( FILENAME in F ) )
                        F[FILENAME]

                for ( k in P )
                {
                        if ( $0 ~ k )
                        {
                                R[FILENAME FS k]++
                        }
                }
        }
        END {
                printf "\t"
                for ( k in P )
                        printf "%s\t", k
                printf "\n"

                for ( j in F )
                {
                        printf "%s\t", j
                        for ( k in P )
                                printf "%s\t\t", (R[j FS k] ? R[j FS k] : 0)
                        printf "\n"
                }
        }
' phrases mark john

$ cat phrases
books
flowers
house pet
cooking skills

$ cat mark
I like reading books
I have five books
I love flowers
I am not allergic to flowers (list.txt)

$ cat john
I love house pets
I collect books

        books   cooking skills  house pet       flowers
john    1               0               1               0
mark    2               0               0               2

' accept-all.txt $U 
done > result-here.csv

' accept-all.txt $U > result/${docU}
done

awk '
        -- code --
' accept-all.txt People/*