Perl中的条件分裂

Question

我有以下句子:

my $sent = 'D. discoideum and D. purpureum developmental programs revealed';

有没有办法我可以分割线条,使两个连续的单词有'.' 中间的(点)将被视为一个单词？

因此我们希望在拆分后得到这个:

$VAR = ['D. discoideum', 
         'and', 
         'D. purpureum',
         'developmental',
         'programs',  
         'revealed'];

该标准s/\s+//g将根据空间分割所有内容.

Answer 1

尝试拆分:

/(?<!\.)\s+/

此表达式匹配任何不遵循句点的空格字符,而不匹配句点本身.