Return to updateRS1.pl CVS log | Up to [Local Repository] / db / prgsrc |
version 1.6, 2002/01/13 00:32:12 | version 1.7, 2002/06/15 03:43:48 |
---|---|
Line 143 foreach $wordnumber(0..$#list) | Line 143 foreach $wordnumber(0..$#list) |
@n= split ' ',$n; | @n= split ' ',$n; |
$nfkvo{$_}++ foreach @n; | $nfkvo{$_}++ foreach @n; |
my $r=packword($fieldnumber, $id,$wordnumber%256); | my $r=packword($fieldnumber, $id,$wordnumber%256); |
print "$word !$r!\n"; | |
$neww2k{$_}.=$r foreach (@n); | $neww2k{$_}.=$r foreach (@n); |
} | } |
else { | else { |