16 open IN, "variant.txt";
17 open OYES , ">variant-yes.lst";
18 open OMAYBE, ">variant-maybe.lst";
19 open BYES , ">nonamer-yes.lst";
20 open BMAYBE, ">nonamer-maybe.lst";
23 ($w, $f, $s) = /^(.+):?\t(.)([!?]?)$/ or die "Bad Line: $_";
24 next unless $w =~ /^[A-Za-z\']+$/;
25 $already_variant{$w} = 1;
26 if ($s eq '!' || $s eq '') {
27 print OYES $w, "\n" if $f eq '#';
28 print BYES $w, "\n" if $f eq '&';
30 print OMAYBE $w, "\n" if $f eq '#';
31 print BMAYBE $w, "\n" if $f eq '&';
41 open IN, "2of12full.txt";
42 open O02, ">02of12.lst";
43 open O05, ">05of12.lst";
44 open O11, ">11of12.lst";
45 open U, ">4of12upper.lst";
46 open ONA, ">not-abbr.lst";
47 open V, ">variant-also.lst";
48 open NV, ">not-variant.lst";
53 ($total, $not_variant, $variant, $non_american, $word, $abrv_mark)
54 = /^(..): (..) (..)\# (..)\& (.+?)([:.]?)$/ or die "Bad Line:$_";
56 $not_variant = 0 if $not_variant eq ' -';
57 $variant = 0 if $variant eq ' -';
58 $non_american = 0 if $non_american eq ' -';
59 next unless /^[A-Za-z\']+$/;
61 my $not_abrv = ($abrv_mark eq '' && $total >= 5);
62 my $is_variant = ($variant >= $non_american
63 && ($variant + $non_american) > $not_variant
64 && !$already_variant{$word});
65 print ONA if $not_abrv;
66 print V if $is_variant;
67 print NV unless $is_variant || $already_variant{$word};
70 } elsif ($total >= 5) {
72 } elsif ($total >= 4 && /^[A-Z]+/ && $abrv_mark eq '') {
74 } elsif ($total >= 2) {
77 die "This should not happen: $total $_\n";