while (<F>) {
s/\r?\n$// or die;
# (uncommon flag, base word, part of speach, inflected forms)
- ($d,$w,$p,$a) = /^([-@]?)(\w+) (.).*: ?(.*?)$/ or die;
+ ($d,$w,$p,$a) = /^([-@\+]?)(\w+) (.).*: ?(.*?)$/ or die;
+ $d =~ tr/+//d;
next if $d; #
@a0 = split / /, $a;
splice @a0, -1, 0, "'" if $p eq 'V' && @a0 >= 3; # insert placeholder
s/ \| / /g; s/ \/ / /g;
push @a, (split / /, $_);
}
- @a = grep {!/^[@~-]/} @a; # remove questionable entries
+ @a = grep {!/^[@~!-]/} @a; # remove questionable entries
# @a now conatins a list of valid inflected forms
@a0 = grep {$_ ne "'"} @a;
# @a0 is now the same as @a except for the placeholder entries