Annotation of db/prgsrc/checkPBS.pl, revision 1.3
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);
29: $is{unpack("S",$_)}=1 foreach $blob=~/.(..)./sg;
30: }
31:
32: mydo ("UPDATE Questions SET ProcessedBySearch=1 where QuestionId=$_")
33: foreach keys %is;
34:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>