db/prgsrc/makeauthors.pl - diff

Return to makeauthors.pl CVS log

Up to [Local Repository] / db / prgsrc

version 1.3, 2003/01/09 01:43:21	version 1.6, 2005/11/29 19:46:26
Line 1	Line 1
	#!/usr/bin/perl -w
#!/usr/local/bin/perl -w

=head1 NAME	=head1 NAME

Line 77 while (<NICKS>)	Line 76 while (<NICKS>)
$name{$nick}= ucfirst lc $name;	$name{$nick}= ucfirst lc $name;
$surname=ucfirst lc $surname;	$surname=ucfirst lc $surname;
$surname=~s/\-(.)/"-". uc $1/ge;	$surname=~s/\-(.)/"-". uc $1/ge;
	$surname=~s/\'(.)/"'". uc $1/ge;
$surname{$nick}= $surname;	$surname{$nick}= $surname;

}	}
Line 153 while (($QuestionId, $author)=getrow,$Qu	Line 153 while (($QuestionId, $author)=getrow,$Qu
$author=~s/\s+$//mg;	$author=~s/\s+$//mg;
$author=~s/\s+/ /mg;	$author=~s/\s+/ /mg;
$author=uc $author;	$author=uc $author;
	$author=~s/£/Å/mg;
if ($nick = $nick{$author})	if ($nick = $nick{$author})
{	{
my @a=split ' ',$nick;	my @a=split ' ',$nick;