[BACK]Return to mkRS.pl CVS log [TXT] [DIR] Up to [Local Repository] / db / prgsrc

Diff for /db/prgsrc/mkRS.pl between versions 1.1 and 1.2

version 1.1, 2001/10/31 03:00:10 version 1.2, 2001/10/31 03:07:27
Line 1 Line 1
 #!perl -w  #!/usr/bin/perl -w
   
 #!/usr/local/bin/perl -w  =head1 NAME
   
 =head1 NAME  mkRS.pl - Скрипт для создания таблиц для русского поиска 
   
 mkRS.pl - Скрипт для создания таблиц для русского поиска  B<$base> информации о вопросах 
   
 B<$base> информации о вопросах  =head1 SYNOPSIS
   
 =head1 SYNOPSIS  mkRS.pl Создаёт таблицы word2question, nf, nests (предварительно 
           без предупреждения удаляя их) и очищает ProcessedBySearch.
 mkRS.pl Создаёт таблицы word2question, nf, nests (предварительно  
         без предупреждения удаляя их) и очищает ProcessedBySearch.  
   
   =head1 DESCRIPTION
   
 =head1 DESCRIPTION  Скрипт ищет в таблице Questions вопросы с нулевым ProcessedBySearch,
   добавляет информацию в таблицы word2question, nests, nf. Поле 
 Скрипт ищет в таблице Questions вопросы с нулевым ProcessedBySearch,  ProcessedBySearch устанавливается в 1. Обрабатывает 
 добавляет информацию в таблицы word2question, nests, nf. Поле  Questions_per_cicle*cicles_number вопросов, сбрасывая 
 ProcessedBySearch устанавливается в 1. Обрабатывает  информацию в базу каждые Questions_per_cicle вопросов.
 Questions_per_cicle*cicles_number вопросов, сбрасывая  Значения по умолчанию:
 информацию в базу каждые Questions_per_cicle вопросов.  Questions_per_cicle=500;
 Значения по умолчанию:  cicles_number=1.
 Questions_per_cicle=500;  
 cicles_number=1.  
   =head1 AUTHOR
   
 =head1 AUTHOR  Роман Семизаров
   
 Роман Семизаров  
   =cut
   
 =cut  use locale;
   use DBI;
 use locale;  use POSIX qw (locale_h);
 use DBI;  use chgkfiles;
 use POSIX qw (locale_h);  use dbchgk;
 use chgkfiles;  my $minstop=2000;
 use dbchgk;  open (STDERR,">errors");
 my $minstop=2000;  do "common.pl";
 open (STDERR,">errors");  do "chgk.cnf";
 do "common.pl";  
 do "chgk.cnf";  die "Undefined \$maxwsize! check your chgk.cnf" unless $maxwsize;
   
 die "Undefined \$maxwsize! check your chgk.cnf" unless $maxwsize;  checktable('word2question','delete');
   
 checktable('word2question','delete');  checktable('nests','delete');
   
 checktable('nests','delete');  checktable('nf','delete');
   
 checktable('nf','delete');  
   print "Creating word2question table...\n";
   
 print "Creating word2question table...\n";          mydo("CREATE TABLE word2question (
                   id     INT UNSIGNED NOT NULL PRIMARY KEY AUTO_INCREMENT,
         mydo("CREATE TABLE word2question (                              KEY idkey (id),
                 id     INT UNSIGNED NOT NULL PRIMARY KEY AUTO_INCREMENT,                  word   INT UNSIGNED NOT NULL, 
                             KEY idkey (id),                              KEY wordkey (word),
                 word   INT UNSIGNED NOT NULL,                  questions  MEDIUMBLOB
                             KEY wordkey (word),                 )"
                 questions  MEDIUMBLOB              )
                )"  
             )          or die "Can't create WORD2QUESTION table: $!\n";
   
         or die "Can't create WORD2QUESTION table: $!\n";  print "Creating nests table...\n";
   
 print "Creating nests table...\n";          mydo("CREATE TABLE nests (
                   id   INT UNSIGNED NOT NULL PRIMARY KEY AUTO_INCREMENT,
         mydo("CREATE TABLE nests (                              KEY idkey (id),
                 id   INT UNSIGNED NOT NULL PRIMARY KEY AUTO_INCREMENT,                  w1   CHAR($maxwsize) BINARY NOT NULL, 
                             KEY idkey (id),                              KEY w1key (w1),
                 w1   CHAR($maxwsize) BINARY NOT NULL,                  w2   INT UNSIGNED NOT NULL,
                             KEY w1key (w1),                              KEY w2key (w2)             
                 w2   INT UNSIGNED NOT NULL,          )")
                             KEY w2key (w2)              
         )")          or die "Can't create NESTS table: $!\n";
   
         or die "Can't create NESTS table: $!\n";  
   
   
   print "Creating nf table...\n";
   
 print "Creating nf table...\n";  
   mydo("CREATE TABLE nf (
                   id   INT UNSIGNED NOT NULL PRIMARY KEY AUTO_INCREMENT,
 mydo("CREATE TABLE nf (                      KEY idkey (id),
                 id   INT UNSIGNED NOT NULL PRIMARY KEY AUTO_INCREMENT,                  word CHAR(30) BINARY NOT NULL, 
                     KEY idkey (id),                              KEY wordkey (word),
                 word CHAR(30) BINARY NOT NULL,                  flag  CHAR(5),
                             KEY wordkey (word),                  number INT UNSIGNED
                 flag  CHAR(5),    )") or die "Can't create NF table: $!\n";
                 number INT UNSIGNED  
   )") or die "Can't create NF table: $!\n";  
   mydo("UPDATE Questions SET ProcessedBySearch=NULL");
   
 mydo("UPDATE Questions SET ProcessedBySearch=NULL");  
   
   
   
   
   
   
   
   
Removed from v.1.1  
changed lines
  Added in v.1.2

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>