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

MMMIX

回复 10# sunzhiguolu


    http://search.cpan.org/dist/perlsecret/lib/perlsecret.pod#Goatse

伍式南

回复 10# sunzhiguolu


我来说一下我自己的理解吧,
    当context是list的时候,m//返回它匹配到的信息,将这些信息组成一个列表.
    如:
        $str = "09A1B1C31D1239E";
        @arr = $str =~ /[A-Z]/g;
    此时,@arr的值是(A, B, C, D, E),就是m//匹配到的.而夹在中间的数字没有被匹配到,就被忽略了

    回到这个问题.
    $cnt = () = $str =~ /A/g;
    这里,由于提供了列表上下文,所以$str =~ /A/g;返回的是匹配到的内容(一大堆'A')
    又因为$cnt是标量,所以$cnt得到匹配到的元素的值所组成的数组的长度

    可以把这行代码分开来看,
    @res = $str =~ /A/g;   # res获得了匹配结果
    $cnt = @res;               # cnt获得了res的长度

sunzhiguolu

回复 12# 伍式南
很高兴您给我回复, 您讲的很好. 我懂了, 谢谢您...

   

tonyliuy

回复 7# MMMIX

真·大神，长见识了，初学者，以后还要多多学习啊
   

tonyliuy

大神，果然好用，简单方便回复 7# MMMIX