唯一的字符串内容的重复值

Question

示例
INPUT

  

$ str =“AAAAATTTTTGGGGGGCCCCCAAAATTTT”;

输出

  

ATGCAT

Answer 1

你可以试试这个，

echo "AAAAATTTTTGGGGGGCCCCCAAAATTTT" | perl -pe 's/(.)\1+/\1/g'

(.)捕获一个角色。

\1+匹配以下相同字符一次或多次。

DEMO

或

use warnings;

print "AAAAATTTTTGGGGGGCCCCCAAAATTTT" =~ s/(.)\1+/$1/gr;

Answer 2

试试这个

use warnings;
use strict;
my $s = "AAAAATTTTTGGGGGGCCCCCAAAATTTTAAAGGF";
my @va = $s =~m/(.)\1*/g;
print @va,"\n";

Answer 3

(.)\K\1+

你可以试试这个。empty string。见。演示。

https://regex101.com/r/cK4iV0/4

Answer 4

use strict;
use warnings;
print"AAAAATTTTTGGGGGGCCCCCAAAATTTT"=~s/(A|T|G|C)\1*/$1/gr;