db/prgsrc/updateRS3.pl - diff

Return to updateRS3.pl CVS log

Up to [Local Repository] / db / prgsrc

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;