perl获取相同匹配字符长度

用perl来获取匹配字符串出现的次数的一个比较好的方法：通过/g进行全局匹配，返回数组中包含了所有已匹配的元素，再用上下文标量获得数组长度。代码如下：

main();
sub main
{
     my $str = "#####H1####" ; 
     my $divider = "#"; 
     print "length of $divider is :".testI($str , $divider); 
}
 #计算字符串里面字符出现次数的一个方法 
sub testI 
{ 
         my $str = shift ; 
         my $divider = shift ; 
        if( $str =~ /^($divider+)/ ) 
         { 
               my $tmp = $1 ; 
               my $length = () = $tmp =~ /$divider/g ; 
               return $length ; 
          }
}