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]} ) { |