Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
    return 0 unless $byteStr =~ m{^(0+)};
    return length $1;
}

Select or download this

Creating vector - 6.651795
Unpacking bitstring - 2.116776
...
     Search took - 0.000154
At least 345 contiguous 0s found at 70112
     Search took - 0.000122