version 1.54, 2001/12/25 04:05:46
|
version 1.55, 2001/12/31 00:57:07
|
Line 677 sub PrintSearch {
|
Line 677 sub PrintSearch {
|
my $tmp=$dbh->quote(pack("S*",@Questions)); |
my $tmp=$dbh->quote(pack("S*",@Questions)); |
my $qsstr=$dbh->quote($sstr); |
my $qsstr=$dbh->quote($sstr); |
my $nf=$dbh->quote(pack("S*", @allnf)); |
my $nf=$dbh->quote(pack("S*", @allnf)); |
|
my $ss=200; |
do |
do |
{ |
{ |
$was=int rand(32000); |
$was=int rand(32000); |
} |
} |
while (!$dbh->do ("insert into lastqueries (id,sstr,questions,allnf) |
while (--$ss && (!$dbh->do ("insert into lastqueries (id,sstr,questions,allnf) |
values ($was, $qsstr,$tmp,$nf)")); |
values ($was, $qsstr,$tmp,$nf)"))); |
|
print "Something is wrong...".br unless $ss; |
} |
} |
|
|
|
|
|
|
print p. "Время поиска: " . (time-$t) ." сек.".p; |
print p. "Время поиска: " . (time-$t) ." сек.".p; |
my ($output, $i, $suffix, $hits) = ('', 0, '', $#Questions + 1); |
my ($output, $i, $suffix, $hits) = ('', 0, '', $#Questions + 1); |
|
|