Re: how to find this substring?

Assuming $seq as the string provided by you. Try this:

$seq='GTGGCAAATGCAGAACGTTTTCTGCGTGTTGCCGATATTCTGG..........GGAGTT'; 

$a = 'ATG';
$b = '(TAA|TAG|TGA)';
while($seq =~ /($a(.*?)$b)/g) { 
    print $1."\n\n\n";
}
[download]

Comment on Re: how to find this substring? Download Code

Replies are listed 'Best First'.
Re^2: how to find this substring? by Not_a_Number (Prior) on Jun 08, 2012 at 14:08 UTC
From the OP: I need to read some DNA sequences and check if they start with 'ATG' and end in 'TAA', 'TAG' or 'TGA' Given the sequence: `ATGXXXTAAXXXTAA` your code outputs: `ATGXXXTAA` whereas it should print the whole string (or 'true', or whatever).	[reply] [d/l] [select]
Re^3: how to find this substring? by Anonymous Monk on Jun 08, 2012 at 14:15 UTC
(o.O) So, why can't you change line 6 to be `print "whatever\n\n";`?	[reply] [d/l]