使用 perl 匹配句子中的句号

Question

如何匹配句子中的句号（句号），但我不想匹配浮点数或包含数字的单词？

例如。

$sen = "I'm going to match full.stop in sentence 3.142";
if ($sen =~ (s/\.//)) {
    print $1;
}

输出：

fullstop

在这个例子中，我只想匹配单词或字母数字单词而不是数字。

Answer 1

使用look around ：

$sen =~ s/(?<!\d)\.(?!\d)//g;

这将匹配前面没有数字且后面没有数字的点。

根据OP的评论进行更新，这将删除后面跟着大写字母的点：

#!/usr/bin/perl
use Modern::Perl;
use utf8;

while(<DATA>) {
    chomp;
    s/\.(?=(?:\s*[A-Z])|$)//g;
    # Or, if you want to be unicode compatible
    s/\pP(?=(?:\s*\p{Lu})|$)//g;
    say;
}

__DATA__
I'm going to match full.stop in sentence 3.142
I'm going to match full.Stop in sentence 3.142
I'm going to match full. Stop in sentence 3.142
I'm going to match full.stop in sentence 3.142. End of string.

输出：

I'm going to match full.stop in sentence 3.142
I'm going to match fullStop in sentence 3.142
I'm going to match full Stop in sentence 3.142
I'm going to match full.stop in sentence 3.142 End of string

Answer 2

您可以使用 /(\.(\D|$))|\D\./。 \D 表示非数字字符，$ 表示行尾

Answer 3

如果要删除第一个句点（“full.stop”中间的句点），但保留第二个句点（3.142 中的句点），并保留其数字，例如“1”。或“p.1223”，您可以执行以下操作：

$sen =~ s/(\D)\.(\D)/$1$2/g;
print $sen;

Answer 4

使正则表达式尽可能简单是件好事，因为它们已经很难阅读了。

要匹配一个或多个非数字和空白，然后匹配 '.'，然后再匹配一个或多个非数字和非空白：

$sen = "I'm going to match full.stop in sentence 3.142";
print "$1\n" if $sen =~ /([^\d\s]+\.[^\d\s]+)/';

给出：

full.stop