version 1.5, 2001/12/10 20:37:23
|
version 1.9, 2002/08/01 01:20:47
|
Line 99 die "No dictionaries found! Check your c
|
Line 99 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 120 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) #перебираем поля |
Line 142 foreach $wordnumber(0..$#list)
|
Line 143 foreach $wordnumber(0..$#list)
|
{ |
{ |
@n= split ' ',$n; |
@n= split ' ',$n; |
$nfkvo{$_}++ foreach @n; |
$nfkvo{$_}++ foreach @n; |
$neww2k{$_}.=packword($fieldnumber, $id,$wordnumber%256) |
my $r=packword($fieldnumber, $id,$wordnumber%256); |
foreach (@n); |
$neww2k{$_}.=$r foreach (@n); |
} |
} |
else { |
else { |
if ($word=~/^${RLrl}+$/o){ # Русское слово |
if ($word=~/^${RLrl}+$/o){ # Русское слово |
Line 171 foreach $wordnumber(0..$#list)
|
Line 172 foreach $wordnumber(0..$#list)
|
$newnf{$word}.=" $nfnumber"; |
$newnf{$word}.=" $nfnumber"; |
$nfkvo{$nfnumber}++; |
$nfkvo{$nfnumber}++; |
$a=\$neww2k{$nfnumber}; |
$a=\$neww2k{$nfnumber}; |
$$a.=packword($fieldnumber, $id,$wordnumber); |
my $r=packword($fieldnumber, $id,$wordnumber); |
|
$$a.=$r; |
if (length $$a>100) {flushw2k($nfnumber)} |
if (length $$a>100) {flushw2k($nfnumber)} |
} |
} |
else |
else |
{ |
{ |
$nfnumber=addnf(0, $f, $flag,1); |
$nfnumber=addnf(0, $f, $flag,1); |
$newnf{uc $word}.=" $nfnumber"; |
$newnf{uc $word}.=" $nfnumber"; |
$neww2k{$nfnumber}.=packword($fieldnumber, $id,$wordnumber); |
my $r=packword($fieldnumber, $id,$wordnumber); |
|
$neww2k{$nfnumber}.=$r; |
} |
} |
} |
} |
} |
} |