s/\r?\n$// or die;
($w, $f, $s) = /^(.+):?\t(.)([!?]?)$/ or die "Bad Line: $_";
next unless $w =~ /^[A-Za-z\']+$/;
- $already_variant{$w} = 1;
+ #print "$w -- $f -- $s\n";
+ $already_variant{$w} = 1;
if ($s eq '!' || $s eq '') {
print OYES $w, "\n" if $f eq '#';
print BYES $w, "\n" if $f eq '&';
while (<IN>)
{
s/\r?\n$// or die;
- ($total, $not_variant, $variant, $non_american, $word, $abrv_mark)
- = /^(..): (..) (..)\# (..)\& (.+?)([:.]?)$/ or die "Bad Line:$_";
+ ($total, $not_variant, $variant, $non_american, $second_class, $word, $abrv_mark)
+ = /^(..): (..) (..)\# (..)\& (..)\= (.+?)([:.]?)$/ or die "Bad Line:$_";
$_ = $word;
$not_variant = 0 if $not_variant eq ' -';
$variant = 0 if $variant eq ' -';
close O05;
close O02;
close IN;
-
-
-
-
-
-
-