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 open(DICT, "/usr/dict/words") or die("open(/usr/dict/words): $!");
25 $lines = shift || 100;
30 my $k = $w[random(@w)];
34 } elsif ($what == 1) {
35 my $k = $w[random(@w)];
36 if (!exists($a{$w}) && random(8) != 0) { next; }
38 } elsif ($what == 2) {
39 my $k = $w[random(@w)];
40 if (!exists($a{$w}) && random(8) != 0) { next; }
43 } elsif (random(5) == 0) {