Re^8: Filter and writing error log file

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....;}
[download]

Thanks again

Comment on Re^8: Filter and writing error log file Download Code

Replies are listed 'Best First'.
Re^9: Filter and writing error log file by choroba (Cardinal) on Jul 24, 2014 at 14:26 UTC
No. `[^A{4}\|^T{4}]` is equivalent to `[^^AT}\|{4]`, i.e. it matches anything except ^, A, T, verbar, curlies and four. لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ	[reply] [d/l] [select]
Re^10: Filter and writing error log file by newtoperlprog (Sexton) on Jul 24, 2014 at 19:00 UTC
Dear Choroba, thank you for your reply. I am getting a little bit confused here. As '^' matches the beginning of the character and in my filter criteria position 15-19 should have atleast 3 A's or 3 T's not necessarily starts with A or T but it could be something like like: `15-AATAG-19 15-ATAAC-19 15-TTTAC-19 15-GCAAA-19 15-GATAA-19` [download] Sorry for so many posts, but I really want to understand. Thankyou	[reply] [d/l]