version 1.3, 2005/02/15 19:27:51
|
version 3.2, 2013/10/11 15:39:35
|
Line 1
|
Line 1
|
#!/usr/local/bin/perl |
#!/usr/bin/perl |
# |
# |
#$Id$ |
#$Id$ |
# |
# |
Line 29 $round=0;
|
Line 29 $round=0;
|
if ($opt_r) |
if ($opt_r) |
{ |
{ |
$round=$opt_r; |
$round=$opt_r; |
foreach my $file (split /\s+/, $FILES[$opt_r]) { |
foreach my $file ( @{$FILES[$opt_r]} ) { |
open (INFILE, $file); |
open (INFILE, $file); |
readmail(\%teams); |
readmail(\%teams); |
close (INFILE); |
close (INFILE); |
Line 41 else
|
Line 41 else
|
} |
} |
readmail(\%teams); |
readmail(\%teams); |
close(INFILE); |
close(INFILE); |
|
|
# |
# |
# Пишем мейл |
# Пишем мейл |
# |
# |
Line 54 else
|
Line 55 else
|
} |
} |
select OUTFILE; |
select OUTFILE; |
&printheader; |
&printheader; |
|
my $numletters=0; |
foreach $team (keys %teams) |
foreach $team (keys %teams) |
{ |
{ |
my $num=$teams{$team}->{'numletters'}; |
my $num=$teams{$team}->{'numletters'}; |
print "$team [$num]\n"; |
print "$team [$num]\n"; |
|
$numletters += $num; |
} |
} |
|
|
|
print "\n------------------\n"; |
|
printf("Всего команд: %3d\n", scalar keys %teams); |
|
printf("Всего писем: %3d\n", $numletters); |
|
|
&printfooter; |
&printfooter; |
|
|
|
# |
|
# На всякий случай проверяем на наличие команд с дублирующимися номерами. |
|
# |
|
check_dup_numbers(\%teams); |