contrib/perl5/ext/SDBM_File/sdbm/grind

   1 #!/bin/sh
   2 rm -f /tmp/*.dir /tmp/*.pag
   3 awk -e '{
   4         printf "%s\t", $0
   5         for (i = 0; i < 40; i++)
   6                 printf "%s.", $0
   7         printf "\n"
   8 }' < /usr/dict/words | $1 build /tmp/$2
   9