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

jason680

回复 10# sammyjeep

different data and get different result

# time perl -le '$_="010000" x 10000000;$sCnt++ while(/1/g);print $sCnt'
10000000
real    0m1.994s

# time perl -le '$_="010000" x 10000000;s/0//g;print length'
10000000

real    0m20.301s

# time perl -le '$_="101111" x 10000000;$sCnt++ while(/1/g);print $sCnt'
50000000

real    0m9.172s

# time perl -le '$_="101111" x 10000000;s/0//g;print length'
50000000

real    0m4.382s

xfoucs

回复 5# wenhq

可能比正则的效率稍微高点

1. 
   
2. #!/usr/bin/env perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. $_="010111"x1000000;
   
7. my $count=0;
   
8. while($_)
   
9. {
   
10.     $count++ if chop;
    
11. }
    
12. print $count;
    
13. 
    

复制代码

##################
real    0m0.576s
user    0m0.480s
sys     0m0.010s

不能超过15字

1. time perl -le '$_="010111" x 1000000;@list=split /0/,$_;$len=scalar @list;print $len'

复制代码

real        0m1.279s

Perlvim

1. use 5.014;
   
2. 
   
3. use Benchmark qw(timethese);
   
4. 
   
5. timethese(100000, {
   
6.     'tr' => sub {
   
7.       my $str = "10101010101010";
   
8.       my $times = $str=~ tr/1/0/;
   
9.       return $times;
   
10.     },
    
11.     'replace' => sub {
    
12.       my $str = "10101010101010";
    
13.       my $times = $str =~ s/1/0/g;
    
14.       return $times;
    
15.     },
    
16.   }
    
17. );
    

复制代码

1. Benchmark: timing 1000000 iterations of replace, tr...
   
2.    replace: 10 wallclock secs (10.90 usr +  0.00 sys = 10.90 CPU) @ 91776.80/s (n=1000000)
   
3.         tr:  1 wallclock secs ( 1.13 usr +  0.00 sys =  1.13 CPU) @ 883392.23/s (n=1000000)

复制代码

gongyonghui2

回复 7# jason680


    多谢校正

gongyonghui2

回复 14# Perlvim


    多谢采用你的建议了

黑色阳光_cu

1. $_= "01010101011101";
   
2. print unpack("%B*", pack("B*", $_)), "\n";

复制代码

gongyonghui2

回复 13# 不能超过15字


    以0 split的是不对的，如01111001产生的元素为('',1111,1),那么长度为三。

不能超过15字

回复 18# gongyonghui2
恩，是呢。。谢谢//学习了。。。


   

rubyish

1. perl -le '$_="010111" x 1000000;tr/0//d;print length'

复制代码