連接兩個字符串，以便他們共同的後綴，前綴合並

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";