【发布时间】:2013-09-03 22:12:05
【问题描述】:
我想找到 ATG...TAG 或 ATG...TAA 的所有事件。我尝试了以下方法:
#!/usr/bin/perl
use warnings;
use strict;
my $file = ('ATGCCCCCCCCCCCCCTAGATGAAAAAAAAAATAAATGAAAAATAGATGCCCCCCCCCCCCCCC');
while($file =~ /((?=(ATG\w+?TAG|ATG\w+?TAA))/g){
print "$1\n";
}
这给了-
ATGCCCCCCCCCCCCCTAG
ATGAAAAAAAAAATAAATGAAAAATAG
ATGAAAAATAG
我想要-
ATGCCCCCCCCCCCCCTAG
ATGAAAAAAAAAATAA
ATGAAAAATAG
我做错了什么?
【问题讨论】:
-
您是在寻找其中之一,还是两者兼而有之?
标签: regex perl bioinformatics