perlを使用して文中で完全一致を一致

Question

文で完全停止（ピリオド）をどのように一致させることができますが、浮動小数点数または数字を含む単語と一致させたくありませんか？

例えば、

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

出力：この例では

fullstop 

私は言葉だけまたは英数字の言葉ではない数字と一致します。

Answer 1

使用して見て回る：

$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は、非数字文字を意味し、あなたが最初の期間（「full.stop」の真ん中に1）を削除したい場合は$はライン

Answer 3

の終わりを意味するが、第二1（3.142中1）のままに無傷で、また「1」のような数字にしておきます。または「p.1223」あなたは、次の操作を行うことができます。

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

Answer 4

それはあなたのような単純なREG-EXEファイルを保つためにうれしいです彼らはすでに読むのが難しいからです。

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

が与える：

full.stop

一つ以上のない桁アンド空白次いで'.'、再度一つ以上のない桁アンドない空白を照合します