version 1.2, 2001/12/25 04:05:46
|
version 1.3, 2002/12/08 01:04:22
|
Line 62 do "chgk.cnf";
|
Line 62 do "chgk.cnf";
|
use DB_File; |
use DB_File; |
|
|
|
|
|
$stopslovo{'÷'}=1; |
|
$stopslovo{'ó'}=1; |
|
$stopslovo{'éú'}=1; |
|
$stopslovo{'îá'}=1; |
|
$stopslovo{'é'}=1; |
|
$stopslovo{'ë'}=1; |
|
|
|
|
$qlimit=shift||500; |
$qlimit=shift||500; |
Line 174 foreach $wordnumber(0..$#list)
|
Line 180 foreach $wordnumber(0..$#list)
|
{ |
{ |
$word=uc $list[$wordnumber]; |
$word=uc $list[$wordnumber]; |
next if length $word>$maxwsize; |
next if length $word>$maxwsize; |
|
next if $stopslovo{$word}; |
if (my $n=$nf{$word}||$newnf{$word}) |
if (my $n=$nf{$word}||$newnf{$word}) |
{ |
{ |
@n= split ' ',$n; |
@n= split ' ',$n; |