模式匹配問題

yun456900

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

大家好，我的目的是匹配出紅色部分，這樣的結(jié)果是ATCGGAGGG。如果要匹配出紅色部分，該怎么寫模式匹配。

我是想拿出序列中連續(xù)出現(xiàn)三個ATC或者TAC或者AAA或者CCC，總之有64種組合。

afukada

你是想要

ATCATCATC
TACTACTAC
AAAAAAAAA
CCCCCCCCC

這四種情形而已嗎?

還是ATCTACAAA這種也算

yun456900

想要
ATCATCATC
TACTACTAC
AAAAAAAAA
CCCCCCCCC
但是有64種

ATCTACAAA不要，就是程序?qū)戝e了出現(xiàn)了下面的結(jié)果

afukada

我看懂你要什麼了@@

這個應(yīng)該是你要的

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

復(fù)制代碼

pitonas

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

復(fù)制代碼

yun456900

回復(fù) 4# afukada
太厲害了，完全正確，非常感謝，好人啊。

   

qq27898

回復(fù) 4# afukada


    樓主說的我沒看懂，你這倒是比他說的明白