如何使用正则表达式（regexp）替换字符串中数字间的特定字符实例？

直接用Perl的正则表达式就能实现需求，核心是精准匹配仅位于两个数字之间的点号并将其删除。

方案一：使用环视断言（推荐） #

这种写法不会捕获数字，处理连续多个数字点号的场景更高效：

my $original_str = '12.34.56_aa.bb.cc';
$original_str =~ s/(?<=\d)\.(?=\d)//g;
print $original_str; # 输出：123456_aa.bb.cc

正则逻辑解释：

• (?<=\d)：正向反向预查，确保当前位置前面是数字
• \.：匹配要删除的点号（正则中.是通配符，必须转义）
• (?=\d)：正向预查，确保当前位置后面是数字
• g修饰符：全局替换所有符合条件的点号

方案二：使用捕获组 #

如果对环视断言不熟悉，也可以用捕获组实现：

my $original_str = '12.34.56_aa.bb.cc';
$original_str =~ s/(\d)\.(\d)/$1$2/g;
print $original_str; # 输出同样符合预期

这个写法是捕获点号前后的数字，用数字+数字的拼接结果替代数字.数字的结构，同样能达成需求。

这两种正则写法属于通用逻辑，支持PCRE标准的编程语言（比如Python、PHP等）都可以参考使用。

内容的提问来源于stack exchange，提问作者daveg