version 1.3, 2010/04/24 21:52:16
|
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; |