version 1.1, 2001/12/13 00:01:58
|
version 1.4, 2003/02/13 16:27:32
|
Line 27 cicles_number=1.
|
Line 27 cicles_number=1.
|
|
|
Создание в рабочем каталоге файла RS_pause прерывает работу с сохранением |
Создание в рабочем каталоге файла RS_pause прерывает работу с сохранением |
хэшей, это означает, что при следующем запуске скрипт продолжит работу с места |
хэшей, это означает, что при следующем запуске скрипт продолжит работу с места |
остановки (обнулится только счётчик счётчик обработанных вопросов). |
остановки (обнулится только счётчик обработанных вопросов). |
Продолжить крайне желательно, потому что у обработанные вопросах |
Продолжить крайне желательно, потому что у обработанные вопросах |
уже установлен флаг ProcessedBySearch, но реально информация о них в базу |
уже установлен флаг ProcessedBySearch, но реально информация о них в базу |
ещё не занесена. |
ещё не занесена. |
Line 53 use POSIX qw (locale_h);
|
Line 53 use POSIX qw (locale_h);
|
use lib "../lib"; |
use lib "../lib"; |
use chgkfiles; |
use chgkfiles; |
use dbchgk; |
use dbchgk; |
open (STDERR,">errors"); |
my $DUMPDIR = $ENV{DUMPDIR} || "../dump"; |
|
open (STDERR,">$DUMPDIR/errors"); |
my $initime=time; |
my $initime=time; |
open TIME, ">time"; |
open TIME, ">$DUMPDIR/time"; |
do "common.pl"; |
do "common.pl"; |
do "chgk.cnf"; |
do "chgk.cnf"; |
|
|
use DB_File; |
use DB_File; |
|
|
|
|
|
$stopslovo{'В'}=1; |
|
$stopslovo{'С'}=1; |
|
$stopslovo{'ИЗ'}=1; |
|
$stopslovo{'НА'}=1; |
|
$stopslovo{'И'}=1; |
|
$stopslovo{'К'}=1; |
|
|
|
|
$qlimit=shift||500; |
$qlimit=shift||500; |
Line 174 foreach $wordnumber(0..$#list)
|
Line 181 foreach $wordnumber(0..$#list)
|
{ |
{ |
$word=uc $list[$wordnumber]; |
$word=uc $list[$wordnumber]; |
next if length $word>$maxwsize; |
next if length $word>$maxwsize; |
|
next if $stopslovo{$word}; |
if (my $n=$nf{$word}||$newnf{$word}) |
if (my $n=$nf{$word}||$newnf{$word}) |
{ |
{ |
@n= split ' ',$n; |
@n= split ' ',$n; |