db/prgsrc/updateRS1.pl - diff

Return to updateRS1.pl CVS log

Up to [Local Repository] / db / prgsrc

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;
}	}
}	}
}	}