3 my $table = $ARGV[0] eq 'table' ? '1' : '0';
11 sub valid_entry ( $ ){local $_ = $_[0]; /^[A-Za-z\']+$/ && exists $words{$_}}
13 foreach my $f (qw(working/variant_1.lst working/variant_2.lst
15 working/british_variant_1.lst working/british_variant_2.lst
16 working/canadian_variant_1.lst working/canadian_variant_2.lst
17 working/australian_variant_1.lst working/australian_variant_2.lst
19 working/british.lst working/british_z.lst
20 working/canadian.lst working/australian.lst))
22 open F, $f or die "Unable to open $f\n";
30 open F, "r/varcon/voc.tab" or die;
34 my ($word) = grep {valid_entry $_} (split /[,\t\n]/);
35 next unless defined $word;
42 open F, "r/varcon/variant.tab" or die;
45 @w = grep {$know_about{$_}} (split /[\t\n]/);
46 next unless @w && grep {valid_entry $_} @w;
47 $words{$w[0]} .= "$_\n" foreach @w;
50 open F, "r/varcon/variant-wroot.tab" or die;
55 next unless exists $words{$root};
56 @w = grep {$know_about{$_}} (split /[\t\n]/);
57 next unless @w && grep {valid_entry $_} @w;
58 $words{$w[0]} .= "$_\n" foreach @w;
63 while (($key, $value) = each %words) {
65 my $row = "$key\n$value";
73 while (($key, $value) = each %words) {