I echo brother kscwab's comments .. this sounds an awful lot like homework.
At the very least, break down what kind of pattern you are looking for. The regexp you've listed appears to look for
- ATG;
- ACGT repeated three times, which you capture into $1, then expect to repeat from three to five thousand times; and
- One of TAA, TAG and TGA.
It's a bit hard to figure out exactly what your code is, because you haven't mastered putting the code between code tags. If you can explain in more complete sentences what you are looking for, I'm sure we can guide you into completing the Perl that you need to get the job done.
For example, the triplet you are looking for at the end .. the 'T' appears at the beginning of each pattern, so you are really looking for
- T; followed by
- AA, AG or GA.
Alex / talexb / Toronto
Thanks PJ. We owe you so much. Groklaw -- RIP -- 2003 to 2013.
| [reply] [d/l] |
This sounds suspiciously like homework...see this faq.
Edit: Maybe break the problem down a bit, and ask a more focused question, versus just dumping the assignment almost verbatim?
| [reply] |
The more urgent your problem, the more important it is that you ask the right question. Properly formed questions always receive timely replies. Even the right answer to the wrong question will not do you much good. You can increase the number and quality of the replies even more if you ask the question in the vocabulary of perl rather than biology. (more of your readers will understand it)
| [reply] |
First thing needed: a meaningful title!
But God demonstrates His own love toward us, in that while we were yet sinners, Christ died for us. Romans 5:8 (NASB)
| [reply] |
| [reply] |
for ( 1 .. $size ) {
$seqR .= $nucsint(rand(4));
}
| [reply] [d/l] [select] |
Thank you all, It was homework but I figured it out | [reply] |
| [reply] [d/l] [select] |