|There's more than one way to do things|
Re: How to count the length of a sequence of alphabets and number of occurence of a particular alphabet in the sequence?by rjt (Curate)
|on Oct 07, 2019 at 17:36 UTC ( #11107142=note: print w/replies, xml )||Need Help??|
You can count the number of occurrences of a particular character in a string with tr:
length will give you the length of the entire string.
Now to actually pull out the uppercase sequence from your sample input, are you reading lines from a file? Something like this would probably work:
Then simply run it with script.pl < protein.txt. Modify the say ... line to taste, or more likely, replace it with the rest of your logic. You can also choose to parse the header if needed, in the # Header section.
You could of course modify this to actually open the file in your script with open instead, if that is more desirable:
use strict; use warnings; omitted for brevity.
In Section Seekers of Perl Wisdom