Thanks Choroba for your reply.
So if I understood correctly, I should modify something like this:
if( ($seq =~/^\w{2}A\w{6}T\w{2}[ACT]\w[^A{4}|^T{4}][GC]{4}[AT]/) && ( $seq !~ /[GC]{9}/) && ( $gcper >= 30 && $gcper <= 52) ) { Do something....;}
Thanks again
In reply to Re^8: Filter and writing error log file
by newtoperlprog
in thread Filter and writing error log file
by newtoperlprog
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |