Annotation of db/prgsrc/checkPBS.pl, revision 1.2
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:
! 19:
! 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>