※ 引述《mzac1b (Goodday)》之銘言：
: ※ 引述《fuu0115 (風)》之銘言：
: : 直接取第一個motif
: : $seq = "-----------motif--motif--motif";
: : $motif = "xxx";
: : print $1 if($seq =~/($motif)/) #取第一個結果並印出
: : 要取第n個
: : @motifs = ($seq =~/$motif/g);
: : print $motif[$n-1]; #取第n個結果印出
: 轉眼過一個月了
: 先感謝風大大
: 再請問 ^^"
: 取下motif 之後
: 如何能知道該 motif 的第一個胺基酸是
: 整個蛋白的第幾個胺基酸??
: thx a lot ~
$seq = "TFTFTFTGFGFTTFGFG";
while ($seq =~ /(?= (GFG) )/gx){
printf "%5s %5d", $1, (1 + length $`);
}
try it!
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.129.166.240
※ 編輯: fuu0115 來自: 140.129.166.240 (05/25 16:29)
※ 編輯: fuu0115 來自: 140.129.166.240 (05/25 16:35)
※ 編輯: fuu0115 來自: 140.129.166.240 (05/25 16:36)