连接两个字符串，以便他们共同的后缀，前缀合并

Question

我有两句话：

AGCGCGATAGC 
     ^^^^ 
TAGCTATATATA 
^^^^ 

第二个字TAGC是第一个字常见。所以我想要的结果是：

AGCGCGATAGCTATATATA 
     ^^^^ 

是否有Perl函数结合这些词？使用级联可能导致重复：

AGCGCGATAGCTAGCTATATATA 
     ^^^^^^^^ 

Answer 1

一个简单的方法做，这是一个字符加入串在一起，不是在你的拼音：

my $s1 = 'AGCGCGATAGC'; 
my $s2 = 'TAGCTATATATA'; 
$_ = "${s1}_$s2" 

然后匹配并更换最长的常见字符串在隔板的每一侧：

s/([ACGT]*)_\1/$1/ 

Answer 2

您可以使用构造是这样的：

my $txt = 'AGCGCGATAGCD'; 
my $txt2 = 'TAGCTATATATA'; 
print "$txt\0$txt2" =~ /(.*)(.+)\x{0}\2(.+)/ ? "$1$2$3" : "$txt$txt2";