[perl5.git] / ext / SDBM_File / 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
Commit	Line	Data
463ee0b2 LW	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