3 # Generate a random test file for symbol table testing.
7 # set k v -- assign (textual) key k the (integer) value i
8 # get k -- display value at key k
9 # del k -- remove key k
10 # count -- show number of items
11 # show -- dump out the entire table, in alphabetical key order
15 return int(rand($lim));
18 $words = "/usr/dict/words";
19 -r $words or $words = "/usr/share/dict/words";
20 open(DICT, $words) or die("open($words): $!");
27 $lines = shift || 100;
32 my $k = $w[random(@w)];
36 } elsif ($what == 1) {
37 my $k = $w[random(@w)];
38 if (!exists($a{$w}) && random(8) != 0) { next; }
40 } elsif ($what == 2) {
41 my $k = $w[random(@w)];
42 if (!exists($a{$w}) && random(8) != 0) { next; }
45 } elsif (random(5) == 0) {