Return to checkPBS.pl CVS log

Up to [Local Repository] / db / prgsrc

Annotation of db/prgsrc/checkPBS.pl, revision 1.4

1.2       boris       1: #!/usr/bin/perl
                      2: =head1 NAME
                      3: 
                      4: checkPBS.pl - скрипт, проставляющий поле ProcessedBySearch на основании 
                      5: информации из word2question
                      6: 
                      7: 
                      8: =head1 SYNOPSIS
                      9: 
                     10: checkPBS.pl
                     11: 
                     12: =head1 AUTHOR
                     13: 
                     14: Роман Семизаров
                     15: 
                     16: 
                     17: =cut
                     18: 
1.3       boris      19:     use lib "../lib";
1.2       boris      20: use dbchgk;
                     21: 
                     22: mydo ("UPDATE Questions SET ProcessedBySearch=NULL");
                     23: 
                     24: getword2question;
                     25: 
                     26: while (($word,$blob)=getrow,$word)
                     27: {
                     28:   print "$sch...\n" unless (++$sch%100);
1.4     ! roma7      29:   $is{unpack("L",$_) & 0xFFFFF}=1 foreach $blob=~/(...)./sg;
1.2       boris      30: }
                     31: 
                     32: mydo ("UPDATE Questions SET ProcessedBySearch=1 where QuestionId=$_")
                     33:  foreach keys %is;
                     34: