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

2024-12-14 09:37:18

推荐回答（3个）

回答1：

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

回答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;

回答3：

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