![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to makeauthors.pl CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Local Repository] / db / prgsrc|
Return to makeauthors.pl CVS log | Up to [Local Repository] / db / prgsrc |
| version 1.3, 2003/01/09 01:43:21 | version 1.5, 2003/02/02 21:01:11 |
|---|---|
| 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; |
| } | } |