[已解决]如何用perl对单一字符串进行计数？

tonyliuy

比如有一列字符串是ABFBAADFGRGRGFGDHRTSYDRYSFSDFSYRRETDFGSRSGFGSRGSDF很长一段没有空格的字符串，怎样查找其中A出现的次数？

伍式南

1. $str = "ABFBAADFGRGRGFGDHRTSYDRYSFSDFSYRRETDFGSRSGFGSRGSDF";
   
2. map { $cnt{$_}++ } split('', $str);
   
3. print "A: ", $cnt{'A'}, "\n";

复制代码

测试:

1. C:\Users\Administrator\Desktop>tinyperl foo.pl
   
2. A: 3

复制代码

yinyuemi

回复 1# tonyliuy


    $cnt = ($str =~ s/A/$&/g)

tonyliuy

回复 2# 伍式南
如果想要求A和B的计数和呢？直接$cnt{'A'||'B'}可以吗？


   

tonyliuy

回复 3# yinyuemi
同上一个问题，如果求A与B的计数和，s///正则匹配可以用逻辑或连接吗？

   

伍式南

回复 4# tonyliuy


    求A和B的计数和,可以这样:
    $cnt{A} + $cnt{B}

    直接用逻辑符号,应该是不行的.

MMMIX

回复 1# tonyliuy


    这东西通常的做法是这样的：

my $cnt = () = $str =~ m/A|B/g;

sunzhiguolu

回复 7# MMMIX
大神, 能问一下 "()" 在此处的含义吗?

   

MMMIX

回复 8# sunzhiguolu


    给 m// 提供 list context 呀

http://bbs.chinaunix.net/thread-4188410-1-2.html

sunzhiguolu

回复 9# MMMIX
您能给个简单的解释吗, 注释真的有点少. 要是一两句话说不清, 给我个可以参考的简单点的文章链接也行. (要是中文就更好了)