|
version 3.1, 2008/03/24 16:01:47
|
version 3.0, 2008/03/23 17:50:50
|
|
Line 276 sub find_scores
|
Line 276 sub find_scores
|
| } |
} |
| |
|
| |
|
| # |
1; |
| # Проверяем на наличие дублирующихся номеров у разных команд. |
|
| # |
|
| sub check_dup_numbers |
|
| { |
|
| my ($teams) = @_; |
|
| |
|
| my %seen; |
|
| |
|
| # Имена команд, номера которых встречаются >1 раза. |
|
| # Массив uniq_compr_names содержит по одному имени на каждый повторяющийся |
|
| # номер (чуть позже мы найдём все имена, соответствующие каждому из |
|
| # этих номеров). |
|
| # '+0' - чтобы номера обрабатывались как числа (072 == 72). |
|
| my @uniq_compr_names = |
|
| grep( $seen{$teams->{$_}->{regnum}+0}++ > 1, keys %$teams ); |
|
| |
|
| # А теперь извлекаем номера из полученного списка. |
|
| my @dup_numbers = map {$teams->{$_}->{regnum}} @uniq_compr_names; |
|
| @dup_numbers = sort @dup_numbers; |
|
| |
|
| # И печатаем предупреждение. |
|
| if ( @dup_numbers ) { |
|
| print STDERR "\nВНИМАНИЕ! Одинаковые номера у нескольких команд:\n"; |
|
| foreach my $num ( @dup_numbers ) { |
|
| my @dup_names = grep($teams->{$_}->{regnum} == $num, keys %$teams); |
|
| print STDERR "\tНомер $num: " . join(", ", @dup_names) . "\n"; |
|
| } |
|
| print STDERR "\n"; |
|
| } |
|
| } |
|
| |
|
| |
|
| |
|
| 1; |
|
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to subroutines.pl CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Local Repository] / processmail