帮助！计算字母！

我有个文件里面含有很多相同字母，我如何通过perl程序将其计算出来，请高手指点一下！~
谢谢

open FH, "<1.txt" or die $!; # 限只含英文字符文件 my $string; # 将文件内容全部读入 {     local $/ = '';     $string = <FH>; } my %count; # 开始计数 for ( split '', $string ) {     s/\n/\\n/ || s/\t/\\t/ || s/ /space/; # 替换转义字符     $count{$_} ++; } # 打印结果： for ( keys %count ) {     print $_, "\t", $count{$_}, "\n"; }

看了你的ID才明白，你是要计算序列的碱基含量吧，查查书，有比这个方法更好的办法。BioPerl中应该有。

是啊，非常感谢·

我要算总数怎么办哦

It's your turn now.

ok,thank you!

请问你知道有关于bioperl 的书，能够跟我说说吗
谢谢

我面试也有一道题,就是找出一个字符串中某个字母的数量的.
#!/usr/bin/perl
use strict;
my $a = "aabacadaeaf";
my $b = "statement";
print "The count number of a in $a is $b\n ";

The statement is _____________________ .

我没写出来,回来查了若干资料也无果.
只用一句操作得出,大家帮帮我.

my $b = $a =~ tr/a//;

or

my $b = $a =~ s/a/a/g;