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.4, 2003/02/13 16:27:32
Line 53 use POSIX qw (locale_h);	Line 53 use POSIX qw (locale_h);
use lib "../lib";	use lib "../lib";
use chgkfiles;	use chgkfiles;
use dbchgk;	use dbchgk;
open (STDERR,">errors");	my $DUMPDIR = $ENV{DUMPDIR} \|\| "../dump";
	open (STDERR,">$DUMPDIR/errors");
my $initime=time;	my $initime=time;
open TIME, ">time";	open TIME, ">$DUMPDIR/time";
do "common.pl";	do "common.pl";
do "chgk.cnf";	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 181 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;