version 1.5, 2001/12/10 20:37:23
|
version 1.6, 2002/01/13 00:32:12
|
Line 142 foreach $wordnumber(0..$#list)
|
Line 142 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); |
print "$word !$r!\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); |
|
print "$word !!$r!\n"; |
|
$$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); |
|
print "$word !!!$r!\n"; |
|
$neww2k{$nfnumber}.=$r; |
} |
} |
} |
} |
} |
} |