正则表达式 – 使用Perl正则表达式重叠文本替换

前端之家收集整理的这篇文章主要介绍了正则表达式 – 使用Perl正则表达式重叠文本替换前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
我有一个包含一堆句子的文本文件.句子包含空格(空格,制表符,新行)以分隔出由字母和/或数字组成的单词.
我想找到单词“123”或“-123”并在数字开始前插入一个点(.).因此,所有出现的“123”和“-123”都将转换为“.123”和“-123”.

我试着用以下方法

$line =~ s/(\s+-*123\s+)/getNewWord($1)/ge

其中$line包含从文件中读取的行,而函数getNewWord将把点(.)放在匹配的单词中的适当位置.

但它不适用于有两个连续“123”的情况,如“123 123”.当第一个“123”被“.123”替换时,该单词后面的空格已经匹配,第二个“123”不匹配,因为正则表达式引擎无法将前一个空格与该单词匹配.

谁能帮我这个?谢谢!

解决方法

我同意MRAB(并且他/她的回答是1),但是没有真正需要getNewWord功能.我会将整个语句更改为以下类似之一:

$line =~ s/((?:^|\s)-?)(123)(?=\s|$)/$1.$2/g;

$line =~ s/(?:^|(?<=\s))(-?)(123)(?=\s|$)/$1.$2/g;

$line =~ s/(?:^|(?<=\s)|(?<=\s-))(?=123(?:\s|$))/./g;

猜你在找的正则表达式相关文章