version 1.1, 2010/04/24 17:21:53
|
version 1.4, 2010/05/15 15:46:15
|
Line 51 while (<NICKS>)
|
Line 51 while (<NICKS>)
|
($number,$nick)=split; |
($number,$nick)=split; |
next unless $number; |
next unless $number; |
next unless $number=~/^\d+$/; |
next unless $number=~/^\d+$/; |
($name,$surname)=split ' ',<NICKS>; |
@parts = split ' ',<NICKS>; |
$name{$nick}= ucfirst lc $name; |
$_ = ucfirst lc $_ foreach @parts; |
$surname=ucfirst lc $surname; |
$surname = pop @parts; |
|
$name{$nick}= join ' ', @parts; |
$surname=~s/\-(.)/"-". uc $1/ge; |
$surname=~s/\-(.)/"-". uc $1/ge; |
$surname=~s/\'(.)/"'". uc $1/ge; |
$surname=~s/\'(.)/"'". uc $1/ge; |
$surname{$nick}= $surname; |
$surname{$nick}= $surname; |
Line 65 $surname{'error'}='Глюков';
|
Line 66 $surname{'error'}='Глюков';
|
$name{'error'}='Очепят'; |
$name{'error'}='Очепят'; |
$surname{'unknown'}='Неизвестный'; |
$surname{'unknown'}='Неизвестный'; |
$name{'unknown'}='Псевдоним'; |
$name{'unknown'}='Псевдоним'; |
$surname{'team'}='Капитанова'; |
$surname{'team'}='Авторов'; |
$name{'team'}='Команда_'; |
$name{'team'}='Коллектив'; |
|
|
|
|
while (<SSNICKS>) |
while (<SSNICKS>) |
Line 130 while (($TournamentId, $editor, $parent,
|
Line 131 while (($TournamentId, $editor, $parent,
|
|
|
foreach $t(keys %Tours) { |
foreach $t(keys %Tours) { |
%tour = %{$Tours{$t}}; |
%tour = %{$Tours{$t}}; |
print Dumper(\%tour); |
|
if ( |
if ( |
|
|
(exists $tour{'children'}) && |
(exists $tour{'children'}) && |
Line 138 foreach $t(keys %Tours) {
|
Line 138 foreach $t(keys %Tours) {
|
) { |
) { |
$childrenSameAuthor = 1; |
$childrenSameAuthor = 1; |
foreach (@{$tour{children}}) { |
foreach (@{$tour{children}}) { |
print $Tours{$_} -> {editor}." ne ".$tour{editor}."\n"; |
|
if ($Tours{$_} -> {editor} ne $tour{editor}) { |
if ($Tours{$_} -> {editor} ne $tour{editor}) { |
$childrenSameAuthor = 0; |
$childrenSameAuthor = 0; |
} else { |
} else { |
print "!"; |
|
$Tours{$_} -> {editor} = ''; |
$Tours{$_} -> {editor} = ''; |
} |
} |
} |
} |