perl 统计字符串中特定字符出现的次数

my $GC =(tr/GC/GC/);#计算G或C碱基个数

my $AT = (tr/AT/AT/);#计算A或T碱基个数

• tr /searchment/repalcement/;是把searchment的第一个字符换成replacement的第一个字符，searchment的第二个字符换成replacement的第二个字符，类推 ~~~~~~~
        即：转换操作符tr///用于搜索一个字符串，找出searchlist中的各个元素，并用replacementlist中的对应元素对它们进行替换。如果replacementlist是空的，或者与searchlist相同，那么tr///将计算并返回匹配的字符。目标字符串并不被修改。