模式匹配问题

yun456900

my $a=ATCGGAGGGATCATCATCGGCAGCCTGTG;
if($a=~/(([ATGC][ATGC][ATGC]){3})/)
{
   print $1."\n"
}

大家好，我的目的是匹配出红色部分，这样的结果是ATCGGAGGG。如果要匹配出红色部分，该怎么写模式匹配。

我是想拿出序列中连续出现三个ATC或者TAC或者AAA或者CCC，总之有64种组合。

afukada

你是想要

ATCATCATC
TACTACTAC
AAAAAAAAA
CCCCCCCCC

這四種情形而已嗎?

還是ATCTACAAA這種也算

yun456900

想要
ATCATCATC
TACTACTAC
AAAAAAAAA
CCCCCCCCC
但是有64种

ATCTACAAA不要，就是程序写错了出现了下面的结果

afukada

我看懂你要什麼了@@

這個應該是你要的

1. $a="ATCGGAGGGATCATCATCGGCAGCCTGTG";
   
2. 
   
3. if($a=~/(([ATGC]{3})\2\2)/)
   
4. {
   
5.         print $1,"\n";
   
6. }

复制代码

pitonas

1. my $a      = 'ATCGGAGGGATCATCATCGGCAGCCTGTG';
   
2. my $begin  = 3 * 3;
   
3. my $length = 9;
   
4. print substr $a, $begin, $length;

复制代码

yun456900

回复 4# afukada
太厉害了，完全正确，非常感谢，好人啊。

   

qq27898

回复 4# afukada


    楼主说的我没看懂，你这倒是比他说的明白