db/prgsrc/updateRS1.pl - diff

Return to updateRS1.pl CVS log

Up to [Local Repository] / db / prgsrc

version 1.8, 2002/06/15 03:46:31	version 1.9, 2002/08/01 01:20:47
Line 99 die "No dictionaries found! Check your c	Line 99 die "No dictionaries found! Check your c
print "Getting words...\n";	print "Getting words...\n";

print TIME "\t\t".(time-$initime)."\n";	print TIME "\t\t".(time-$initime)."\n";
	my $broken=0;

for my $commonI(1..$times)	for my $commonI(1..$times)
{	{
	last if $broken;

print "loading nests\n";	print "loading nests\n";

Line 119 while ((++$sch<=$qlimit) && (($id, @ss)	Line 120 while ((++$sch<=$qlimit) && (($id, @ss)
# и вешаем в массив, индексы которого -- словоформы,	# и вешаем в массив, индексы которого -- словоформы,
# а значения -- списки вопросов.	# а значения -- списки вопросов.
{	{
	if (-e "RS_stop") {unlink("RS_stop"); $broken=1;last}
print "$sch $id\n" ;#unless (++$sch % 1);	print "$sch $id\n" unless ($sch % 10);#unless (++$sch % 1);
searchmark($id);	searchmark($id);
if ($forbidden{$id}) {next};	if ($forbidden{$id}) {next};
foreach $fieldnumber (0..$#ss) #перебираем поля	foreach $fieldnumber (0..$#ss) #перебираем поля