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; |