version 1.1, 2001/10/31 03:00:07
|
version 1.4, 2002/01/13 00:32:12
|
Line 1
|
Line 1
|
|
#!/usr/bin/perl |
=head1 NAME
|
=head1 NAME |
|
|
checkPBS.pl - скрипт, проставляющий поле ProcessedBySearch на основании
|
checkPBS.pl - скрипт, проставляющий поле ProcessedBySearch на основании |
информации из word2question
|
информации из word2question |
|
|
|
|
=head1 SYNOPSIS
|
=head1 SYNOPSIS |
|
|
checkPBS.pl
|
checkPBS.pl |
|
|
=head1 AUTHOR
|
=head1 AUTHOR |
|
|
Роман Семизаров
|
Роман Семизаров |
|
|
|
|
=cut
|
=cut |
|
|
|
use lib "../lib"; |
use dbchgk;
|
use dbchgk; |
|
|
mydo ("UPDATE Questions SET ProcessedBySearch=NULL");
|
mydo ("UPDATE Questions SET ProcessedBySearch=NULL"); |
|
|
getword2question;
|
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=$_") |
foreach keys %is;
|
foreach keys %is; |
|
|