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

perl 统计字符串中特定字符出现的次数  
 最近写程序遇到如题问题，从网上搜了一些相关技巧，如下：
            （利用数组和哈希的方法就不再列出了）
法一：
    

 #!/usr/bin/perl -w 
use strict;  
my $str = 'abcsfsaf#sdagasdga#sdgaghoiiopjh#dsfjkopahkl;fjh#dsjfklpafj '; 
my $count = $str =~ tr/#/#/; 

 统计了字符串$str 中出现的#的个数，在这里用到了转换操作符tr///，简单快速，当之首选。

附上s/// 和tr/// 的区别：
    s///： 替换运算符。s/searchpattern/repalcement/;默认搜索$ _，找出searchpattern，并且用replacement来替换整个匹配的正则表达式。该运算符返回匹配的数量或进行替换的数量，如果没有进行任何匹配，则返回0。
当然也可以指定某个变量,如$perl=~s/searchpattern/repalcement/; 另外，替换运算符也可以使用非斜杠（/）的界限符，如s###.
    tr/// ：转换操作符。tr///的作用与替换运算符有些类似，不过它并不使用正则表达式，而且它的运行方式完全不同。转换操作符的句法如下所示：tr/searchment/repalcement/;是把searchment的第一个字符换成replacement的第一个字符，searchment的第二个字符换成replacement的第二个字符，类推 ~~~~~~~
      即：转换操作符t r / / /用于搜索一个字符串，找出searchlist中的各个元素，并用replacementlist中的对应元素对它们进行替换。如果r e p l a c e m e n t l i s t是空的，或者与s e a r c h l i s t相同，那么t r / / /将计算并返回匹配的字符。目标字符串并不被修改。
 

法二： 

my $var = 'TCTCATGTGAAAAACTATATCAATAATATAAAAACA';
my $count = ($var =~ s/A/A/g);
print $count; 
#计算字符串  $var  中出现的A字符，用到了正则匹配s///g 。

 
法三：

my $str = 'abcsfsaf#sdagasdga#sdgaghoiiopjh#dsfjkopahkl;fjh#dsjfklpafj ' ;
my $cc = 0;
my $tmp = 0;
if( $tmp = () = ($str =~ /#/g ) ) {
 $cc += $tmp;
}
print "$cc\n";
        计算字符串 $str 中出现的 # 个数，利用了正则匹配。
        
         该法也可以如下编写，更简洁。
 
#!/usr/bin/perl
#find.pl
my $s;
$s += ( () =  /A/g ) while <>;
print "A : $s\n";