version 1.3, 2001/11/01 01:44:59
|
version 1.4, 2002/01/13 00:32:12
|
Line 26 getword2question;
|
Line 26 getword2question;
|
while (($word,$blob)=getrow,$word) |
while (($word,$blob)=getrow,$word) |
{ |
{ |
print "$sch...\n" unless (++$sch%100); |
print "$sch...\n" unless (++$sch%100); |
$is{unpack("S",$_)}=1 foreach $blob=~/.(..)./sg; |
$is{unpack("L",$_) & 0xFFFFF}=1 foreach $blob=~/(...)./sg; |
} |
} |
|
|
mydo ("UPDATE Questions SET ProcessedBySearch=1 where QuestionId=$_") |
mydo ("UPDATE Questions SET ProcessedBySearch=1 where QuestionId=$_") |