Shell Programming and Scripting

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

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

        END {
                printf "\t"
                for ( k in P )
                        printf "%s\t", k
                printf "\tCount\n"

                for ( j in F )
                {
                        printf "%s\t", j
                        for ( k in P )
                        {
                                i = j FS k
                                if ( i in R )
                                {
                                        printf "%s\t\t", R[i]
                                        c += R[i]
                                }
                                else
                                        printf "%s\t\t", "0"
                        }
                        printf "%s\n", c
                        c = 0
                }
        }
' phrases mark john

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

                  books   cooking skills  house pet       flowers       Count
john   20          1               0               1               0               22
mark  10          2               0               0               2               14

#!/bin/bash
mkdir results
FFILES="People/*"
for U in $FFILES
do
 docU=$(basename $U)
 docpathU=$(dirname $U)
 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 ","
                for ( k in P )
                        printf "%s,", k
                printf "Count\n"

                for ( j in F )
                {
                        printf "%s,", j
                        for ( k in P )
                        {
                                i = j FS k
								if ( i in R )
                                {
                                        printf "%s,", R[i]
                                        c += R[i]
                                }
                                else
                                        printf "%s,", "0"
                        }
                        printf "%s\n", c
                        c = 0
                }
        }
' accept-list.txt $U > result/${docU}.csv
done