/usr/web/sources/contrib/gabidiaz/root/sys/src/cmd/perl/ext/SDBM_File/sdbm/grind

Plan 9 from Bell Labs’s /usr/web/sources/contrib/gabidiaz/root/sys/src/cmd/perl/ext/SDBM_File/sdbm/grind


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

(Return to Plan 9 Home Page)