db/prgsrc/makeauthors.pl - diff

Return to makeauthors.pl CVS log

Up to [Local Repository] / db / prgsrc

version 1.9, 2010/04/24 21:52:16	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'}='Глюков';