允许少量替换的字符串的正则表达式怎么写？

yisn

有一串不固定长度的相同字母的字符串，比如 GGGGGGGGGGGGGGGGGGGG

但是这一串字符串中又可以有个别插入（插入的可以是任意字母），比如 GGGGGGGGGXGGGGGGADGGGGGGG 这个也算是一长串，而不是分开的几小串

现在有一个长串，比如 ABCD----GGGGGGXGGGGXGGGGGG----ABCDBABDABDC
希望能找到中间的 GGGGGGXGGGGXGGGGGG 这一串东西，有正则表达式可以实现吗？ 或者其它perl函数有没有这种的？

谢谢！

grshrd49

1. /GGGGGGXGGGGXGGGGGG/

复制代码

grshrd49

没那么复杂吧

yisn

回复 2# grshrd49


我想你理解错了，这一串不是固定的。。
可能是 GGGGGGXGGGG
可能是 GGGGGGGGAGGGGG
可能是 GGGGGGXGGGGGGGGGGGGAGGGGG

就是要找这种一串G中间可能被1-2个其它字母隔开的一串东西。

afukada

這個問題要處理OK

只是需要一些條件

比方說插入的片段最長多長

然後每個分段能容許多長

總長度大於多少取出

可以給一個條件嗎

mcshell

1. ([XA]*G+)

复制代码

lhohoz

1.     /((G.).*\2)/;
   
2.     print $1;

复制代码

应该能救急

yinyuemi

回复 1# yisn

1. print if /(G+[^G]?){1,}/

复制代码

jun413947139

条件太少， 一句正则应该实现比较难

黑色阳光_cu

1. my $str = "ABCD----GGGGGGXGGGGXGGGGGG----ABCDBABDABDC";
   
2. if ($str =~ /((?:G+[A-FH-Z]+)*G+)/) {
   
3.     print $1, "\n";
   
4. }
   

复制代码