version 1.8, 2010/04/24 17:21:53
|
version 1.10, 2010/09/24 16:58:57
|
Line 46 open STDERR, ">$DUMPDIR/errors";
|
Line 46 open STDERR, ">$DUMPDIR/errors";
|
|
|
while (<NICKS>) |
while (<NICKS>) |
{ |
{ |
next unless /\S/; |
($number,$nick)=split; |
($number,$nick)=split; |
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||=''; |
$surname = pop @parts; |
$surname=ucfirst lc $surname; |
my $name; |
|
$name = $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; |
|
$sn = "$name $surname"; |
|
print "$name!$surname\n"; |
|
$sn =~ tr/Ёё/Ее/; |
|
$nickfromname{uc $sn} = $nick; |
} |
} |
|
|
$surname{'error'}='Глюков'; |
$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>) |