version 1.8, 2002/06/15 03:46:31
|
version 1.10, 2003/02/13 16:27:32
|
Line 40 use POSIX qw (locale_h);
|
Line 40 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"; |
|
|
Line 99 die "No dictionaries found! Check your c
|
Line 101 die "No dictionaries found! Check your c
|
print "Getting words...\n"; |
print "Getting words...\n"; |
|
|
print TIME "\t\t".(time-$initime)."\n"; |
print TIME "\t\t".(time-$initime)."\n"; |
|
my $broken=0; |
|
|
for my $commonI(1..$times) |
for my $commonI(1..$times) |
{ |
{ |
|
last if $broken; |
|
|
print "loading nests\n"; |
print "loading nests\n"; |
|
|
Line 119 while ((++$sch<=$qlimit) && (($id, @ss)
|
Line 122 while ((++$sch<=$qlimit) && (($id, @ss)
|
# и вешаем в массив, индексы которого -- словоформы, |
# и вешаем в массив, индексы которого -- словоформы, |
# а значения -- списки вопросов. |
# а значения -- списки вопросов. |
{ |
{ |
|
if (-e "RS_stop") {unlink("RS_stop"); $broken=1;last} |
print "$sch $id\n" ;#unless (++$sch % 1); |
print "$sch $id\n" unless ($sch % 10);#unless (++$sch % 1); |
searchmark($id); |
searchmark($id); |
if ($forbidden{$id}) {next}; |
if ($forbidden{$id}) {next}; |
foreach $fieldnumber (0..$#ss) #перебираем поля |
foreach $fieldnumber (0..$#ss) #перебираем поля |