perl 如何高效统计01字符串(二进制串)中1的个数？

gongyonghui2

example: $_="01010101011101";
那么计算出的1的个数应该是8个。

想到利用/(1)/g或split来求1的个数。是不是有其他方法在效率上要高？

不能超过15字

/(1)/g 怎么实现？新手求指导。。。

jason680

回复 1# gongyonghui2

How about this

  $sCnt++ while(/1/g);

gongyonghui2

回复 3# jason680


    my @lis=/(1)/g;
    scalar @lis; 和这个是一个效果，没有变化，如何能不是用正则计算出有多少个1呢

wenhq

s/1//&&c++; print c;
也的用正则啊。。

jason680

回复 4# gongyonghui2

you need performance  ==>是不是有其他方法在效率上要高？
   
but they are different on performance
  $sCnt++ while(/1/g);
  
  my @lis=/(1)/g;
    scalar @lis;

-------------------------
如何能不是用正则计算出有多少个1呢?

  substr, index

jason680

回复 4# gongyonghui2

get the same answer ...

# time perl -le '$_="010111" x 1000000;$sCnt++ while(/1/g);print $sCnt'
4000000

real    0m0.763s
user    0m0.747s
sys     0m0.016s


# time perl -le '$_="010111" x 1000000;@lis=/(1)/g;print scalar @lis'
4000000

real    0m5.726s
user    0m4.363s
sys     0m1.166s

   

sammyjeep

回复 7# jason680

   把0替换掉取字符串长度会不会快一点，

jason680

回复 8# sammyjeep


    how about your trying ...

sammyjeep

回复 9# jason680


有一点差别吧，不大。
time perl -le '$_="010111" x 1000000;$sCnt++ while(/1/g);print $sCnt'
4000000
0.756u 0.012s 0:00.76 100.0%    0+0k 0+0io 0pf+0w

time perl -le '$_="010111" x 1000000;@lis=/(1)/g;print scalar @lis'
4000000
7.388u 0.764s 0:08.15 99.8%     0+0k 0+0io 0pf+0w

time perl -le '$_="010111" x 1000000;s/0//g;print length'
4000000
0.468u 0.016s 0:00.48 97.9%     0+0k 0+0io 0pf+0w