version 1.6, 2002/01/13 00:32:12
|
version 1.8, 2002/06/15 03:46:31
|
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 { |
Line 173 foreach $wordnumber(0..$#list)
|
Line 172 foreach $wordnumber(0..$#list)
|
$nfkvo{$nfnumber}++; |
$nfkvo{$nfnumber}++; |
$a=\$neww2k{$nfnumber}; |
$a=\$neww2k{$nfnumber}; |
my $r=packword($fieldnumber, $id,$wordnumber); |
my $r=packword($fieldnumber, $id,$wordnumber); |
print "$word !!$r!\n"; |
|
$$a.=$r; |
$$a.=$r; |
if (length $$a>100) {flushw2k($nfnumber)} |
if (length $$a>100) {flushw2k($nfnumber)} |
} |
} |
Line 182 print "$word !!$r!\n";
|
Line 180 print "$word !!$r!\n";
|
$nfnumber=addnf(0, $f, $flag,1); |
$nfnumber=addnf(0, $f, $flag,1); |
$newnf{uc $word}.=" $nfnumber"; |
$newnf{uc $word}.=" $nfnumber"; |
my $r=packword($fieldnumber, $id,$wordnumber); |
my $r=packword($fieldnumber, $id,$wordnumber); |
print "$word !!!$r!\n"; |
|
$neww2k{$nfnumber}.=$r; |
$neww2k{$nfnumber}.=$r; |
} |
} |
} |
} |