regex - 如何删除中间带点的首字母？

Question

我在一个字段中有一堆名字，它们带有带“.”的中间名首字母。最后..我需要一个正则表达式来转换这个例子:Kenneth R.intoKenneth我试图建立自己的网站，顺便说一句，找到了这个有用的网站.. http://www.gskinner.com/RegExr/但我是 Perl 和正则表达式的新手，只能得到 "...$"- 当名字末尾没有中间名首字母时这是无用的....我刚刚找到了另一种需要考虑的名称格式......'R。凯利'需要是'凯利'

Answer 1

要删除以 dot 结尾的最后一个“单词”:

my $name =~ s/\w+\.$//i;

(这假设您之后没有任何空间)

删除任何以点结尾的单词:

my $name =~ s/\w+\.//i;

如果要全部删除它们，请查看/g 修饰符...

顺便说一句，给自己做一个测试用例列表来检查你的解决方案
然后尝试使用真实的单词数据，你可能会得到一些惊喜......