Regex 搜索多个连续字符并替换为单个字符，同时排除某些字符_Regex_Perl

Regex 搜索多个连续字符并替换为单个字符，同时排除某些字符

regex perl

Regex 搜索多个连续字符并替换为单个字符，同时排除某些字符,regex,perl,Regex,Perl,搜索多个连续字符并替换为单个字符，同时排除某些字符。前任：萨勒姆，我需要萨利姆 0++1*0.04526*1.05*1我需要0+1*0.04526*1.05*1 以下替换了所有内容，我也需要排除一些字符-在本例中为&e 替换。用更准确的东西 $str =~ s/([^e(])\1+/$1/g; 通过使用以下选项排除您需要的内容：这里有一个regex101可以使用：您真的想将11*11更改为1*1吗？如果这些是数学公式，那可能会有问题。好的一点是，还必须将数字[0-9]相加： $str =

搜索多个连续字符并替换为单个字符，同时排除某些字符。前任：萨勒姆，我需要萨利姆

0++1*0.04526*1.05*1我需要0+1*0.04526*1.05*1

以下替换了所有内容，我也需要排除一些字符-在本例中为&e

替换。用更准确的东西

$str =~ s/([^e(])\1+/$1/g;

通过使用以下选项排除您需要的内容：

这里有一个regex101可以使用：

您真的想将11*11更改为1*1吗？如果这些是数学公式，那可能会有问题。好的一点是，还必须将数字[0-9]相加：

$str =~ s/([^e(])\1+/$1/g;

([^(e])\1+