version 1.23, 2001/10/18 19:45:26
|
version 1.26, 2001/10/22 20:39:34
|
Line 9 use POSIX qw(locale_h);
|
Line 9 use POSIX qw(locale_h);
|
use locale; |
use locale; |
open STDERR, ">errors"; |
open STDERR, ">errors"; |
my $printqueries=1; |
my $printqueries=1; |
my %fieldname= (0,'Question', 1, 'Answer', 2, 'Comments'); |
my %fieldname= (0,'Question', 1, 'Answer', 2, 'Comments', 3, 'Authors', 4, 'Sources'); |
my %searchin; |
my %searchin; |
|
|
|
|
Line 20 my $thislocale;
|
Line 20 my $thislocale;
|
$searchin{'question'}=param('Question'); |
$searchin{'question'}=param('Question'); |
$searchin{'answer'}=param('Answer'); |
$searchin{'answer'}=param('Answer'); |
$searchin{'comment'}=param('Comment'); |
$searchin{'comment'}=param('Comment'); |
|
$searchin{'authors'}=param('Authors'); |
|
$searchin{'sources'}=param('Sources'); |
|
$printqueries||=param('debug'); |
my $all=param('all'); |
my $all=param('all'); |
$all=0 if lc $all eq 'no'; |
$all=0 if lc $all eq 'no'; |
my ($PWD) = `pwd`; |
my ($PWD) = `pwd`; |
Line 216 print "$query\n",br if $printqueries;
|
Line 219 print "$query\n",br if $printqueries;
|
{ |
{ |
@blob=(@blob,unpack 'C*',$arr[0]); |
@blob=(@blob,unpack 'C*',$arr[0]); |
} |
} |
print "blob=@blob"; |
|
$query="select number from nf where ".(join ' OR ', @arr1); |
$query="select number from nf where ".(join ' OR ', @arr1); |
print "$query\n",br if $printqueries; |
print "$query\n",br if $printqueries; |
$sth=$dbh -> prepare($query); |
$sth=$dbh -> prepare($query); |
Line 245 print "$query\n",br if $printqueries;
|
Line 247 print "$query\n",br if $printqueries;
|
# виде хэша, ключи которого -- номера вопросов, |
# виде хэша, ключи которого -- номера вопросов, |
# а значения -- списки номеров вхождений. Вот. |
# а значения -- списки номеров вхождений. Вот. |
{ |
{ |
($field,$hi,$lo,$wordnumber)=@blob[$ii..($ii+3)]; |
($field,$lo,$hi,$wordnumber)=@blob[$ii..($ii+3)]; |
$ii+=4; |
$ii+=4; |
$number=$lo+$hi*256; |
$number=$lo+$hi*256; |
print "f1=$field\n"; |
|
$field=$fieldname{$field}; |
$field=$fieldname{$field}; |
print "f2=$field\n"; |
|
if ($searchin{lc $field}) |
if ($searchin{lc $field}) |
{ |
{ |
|
|
Line 269 print "f2=$field\n";
|
Line 269 print "f2=$field\n";
|
} |
} |
} #foreach $i |
} #foreach $i |
|
|
print "keys tasksof", keys %tasksof; |
print "keys tasksof", keys %tasksof if $printqueries; |
#Ищем пересечение или объединение списков вопросов (значений %tasksof) |
#Ищем пересечение или объединение списков вопросов (значений %tasksof) |
foreach $sf (keys %tasksof) |
foreach $sf (keys %tasksof) |
{ |
{ |
Line 292 foreach (keys %wordsof)
|
Line 292 foreach (keys %wordsof)
|
|
|
############ |
############ |
|
|
print "tasks=@tasks"; |
print "tasks=@tasks" if $printqueries;; |
|
|
#print "$_ $relevance{$_} | " foreach @tasks; |
#print "$_ $relevance{$_} | " foreach @tasks; |
#print br; |
#print br; |