version 1.37, 2001/11/26 10:31:49
|
version 1.38, 2001/11/30 23:48:53
|
Line 21 my $thislocale;
|
Line 21 my $thislocale;
|
|
|
$searchin{'question'}=param('Question'); |
$searchin{'question'}=param('Question'); |
$searchin{'answer'}=param('Answer'); |
$searchin{'answer'}=param('Answer'); |
$searchin{'comment'}=param('Comment'); |
$searchin{'comments'}=param('Comments'); |
$searchin{'authors'}=param('Authors'); |
$searchin{'authors'}=param('Authors'); |
$searchin{'sources'}=param('Sources'); |
$searchin{'sources'}=param('Sources'); |
my $all=param('all'); |
my $all=param('all'); |
Line 161 print "$query",br if $printqueries;
|
Line 161 print "$query",br if $printqueries;
|
} |
} |
|
|
|
|
my @bad=grep {!$nf[$_]} 0..$#w; # @bad -- номера словоформ, |
my @bad=grep {!@{$nf[$_]}} 0..$#w; # @bad -- номера словоформ, |
# которых нет в словаре |
# которых нет в словаре |
|
|
if (@bad) #есть неопознанные словоформы |
if (@bad) #есть неопознанные словоформы |