string - 如何在 Perl 中将人的全名解析为用户名？

Question

我需要将格式为 Parisi, Kenneth 的名称转换为格式 kparisi。

有谁知道如何在 Perl 中做到这一点？

以下是一些异常的示例数据:

泽勒布, 查尔斯 F.,, IV
艾尔特，约翰，IV
Wods, Charles R.,, III
Welkt, Craig P.,, Jr.

这些特定名称应以 czeleb、jeilt、cwoods、cwelkt 等结尾。

我还有一个条件正在毁掉我的名字 build 者
奥尼尔，保罗到目前为止，Vinko Vrsalovic 的回答在混合了奇怪/腐败的名字时效果最好，但是上面的这个例子会以“pneil”的形式出现...... p 和 n

Answer 1

vinko@parrot:~$ cat genlogname.pl

use strict;
use warnings;

my @list;
push @list, "Zelleb, Charles F.,,IV";
push @list, "Eilt, John,, IV";
push @list, "Woods, Charles R.,,III";
push @list, "Welkt, Craig P.,,Jr.";

for my $name (@list) {
        print gen_logname($name)."\n";
}

sub gen_logname {
        my $n = shift;
        #Filter out unneeded characters
        $n =~ s/['-]//g;
        #This regex will grab the lastname a comma, optionally a space (the 
        #optional space is my addition) and the first char of the name, 
        #which seems to satisfy your condition
        $n =~ m/(\w+), ?(.)/;
        return lc($2.$1);
}

vinko@parrot:~$ perl genlogname.pl
切勒布
堕落
伍兹
温克特