Shell Programming and Scripting

wrapping
wreaking
wreathing
wrecking
wrenching
wresting
wrestling
wriggling
writhing
yammering
yanking
yapping

am
is
are
has been
have been
was
were
had been
will be
will have been
am not
is not
are not

am yanking
is yanking
are yanking
has been yanking
have been yanking
was yanking
am writhing
is writhing
are writhing
has been writhing
have been writhing
was writhing

#! /bin/ksh93

IFS='\n\n'
set -A achPrefix $(</path/to/prefixfile)

typeset    fIn="/path/to/verbfile"
typeset    fOut="/path/to/output"
typeset    chVerb=""
typeset -i iPrefixCnt=0

exec 3>"$fOut"

grep -ve '^#' -ve '^$' |\
while read chVerb ; do
     (( iPrefixCnt = 0 ))
     while [ $iPrefixCnt -lt ${#achPrefix[@]} ] ; do
          print -u3 - "${achPrefix[$iPrefixCnt]} $chVerb"
          (( iPrefixCnt += 1 ))
     done
done

exec 3>&-

exit 0

#! /bin/ksh93

IFS='\n\n'
set -A achPrefix $(</path/to/prefixfile)                       # create array with prefixes from file

typeset    fIn="/path/to/verbfile"                             # the filename of the verbfile
typeset    fOut="/path/to/output"                              # filename of output file
typeset    chVerb=""                                           # buffer variable
typeset -i iPrefixCnt=0                                        # counter

exec 3>"$fOut"                                                 # open the output file for writing

grep -ve '^#' -ve '^$' |\                                      # this removes commented and empty
                                                               # lines. Add more preprocessing if
                                                               # necessary
while read chVerb ; do                                         # read the output of grep line by line
                                                               # and put the line into variable chVerb
     (( iPrefixCnt = 0 ))                                      # reset the counter
     while [ $iPrefixCnt -lt ${#achPrefix[@]} ] ; do           # cycle through all the elements of the
                                                               # "achPrefix" array, ${#achPrefix[@]} is
                                                               # the number of elements in the array
          print -u3 - "${achPrefix[$iPrefixCnt]} $chVerb"      # print the current prefix plus the current
                                                               # verb to the output file (we opened FD3 for
                                                               # this above and now use it)
          (( iPrefixCnt += 1 ))                                # increment the prefix counter
     done
done

exec 3>&-                                                      # close the output file in the end

exit 0

awk 'NR==FNR { a[$0]; next } { for (i in a) print i, $0 }' prefix root

while read a; 
do 
while read b; 
do 
echo "$b $a"; 
done < prefix; 
done < root

xargs -IXX -a prefix sed -e 's/$/ XX/' root

#!/bin/sh
while read root                                                               
do
  while read prefix
  do
    printf "%s %s\n" "$prefix" "$root"
  done < prefixfile
done < rootfile

grep -ve '^#' -ve '^$' "$fIn" |\