Question

请问如何用perl统计一个字符串里面特定字符的个数？

比如说有一个文件，每一行都是类似于以下的字符串（其实是DNA序列）TCTCATGTGAAAAACTATATCAATAATATAAAAACATTGCTGGCTCCGGTGCGCTTGTGACGGCCCGTGGAATGTTCAATCGTCTTGAATGCAAAAATTGTTTTATTAACATGNNANNNNNNNNNNNNNNNNNNNNNNNNNNNN用perl处理的时候先打开文件，然后while() 但是这样每次$_得到的都是整个一行的字符，也就是第一次 $_='TCTCATGTGAAAAACTATATCAATAATATAAAAACA'我想要统计其中某个特定字符的个数（比如G的个数），想用shift,pop，但是变量类型不对我刚开始学perl，请教各位应该怎么做？谢谢！

Answer 1

参见perl正则表达式的理论，匹配的结果为布尔型，替换的结果为数值型（成功的话），就可以得到这个问题的解决办法：my $var = 'TCTCATGTGAAAAACTATATCAATAATATAAAAACA';my $count = ($var =~ s/A/#/g);print $count;进一步扩展这种用法，将你需要统计的字符替换为一个不出现在字符串中的字符，比如#，就可以在整个文件中统计出你需要统计的字符的数量.就是2楼的答案，但2楼统计的结果是不分大小写的，如果区分大小写，就 去掉i即可：my $count = ($var =~ s/A/#/g);

Answer 2

#!/usr/bin/perluse strict;use warnings;open IN,"dna.txt" or die "Cannot open dna.txt:$!";my $sum;my @line;while () { push @line, $_=~ /T/gi;}print 'T的总数共有：'.scalar @line;

Answer 3

本来想说个哈希 算了ls说了好多、、、、、、、