processmail/createtable.pl - diff

Return to createtable.pl CVS log

Up to [Local Repository] / processmail

version 3.1, 2008/03/24 16:01:47	version 3.3, 2013/10/11 15:39:35
Line 1	Line 1
#!/usr/local/bin/perl	#!/usr/bin/perl
#$Id$	#$Id$
#	#
#	#
Line 64 for (my $r=1; $r<=$ROUNDS; $r++) {	Line 64 for (my $r=1; $r<=$ROUNDS; $r++) {
}	}

#	#
	# Удаляем старые рейтинги (Ivan A Derzhanski <iad58@mail.ru>)
	#
	for ($i=1;$i<=$MAXQUEST;$i++) {
	foreach $answer (keys %{$answers[$i]}) {
	%{$answers[$i]->{$answer}->{teams}} = ();
	}
	}

	#
# Читаем ответы в данном раунде	# Читаем ответы в данном раунде
#	#
foreach my $file ( @{$FILES[$r]} ) {	foreach my $file ( @{$FILES[$r]} ) {