db/prgsrc/makeeditors.pl - diff

Return to makeeditors.pl CVS log

Up to [Local Repository] / db / prgsrc

version 1.2, 2010/04/24 18:28:36	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>)