Help for this page

Select Code to Download

Select or download this

sub b2i {
    return split //, unpack('b*', @_);
}

Select or download this

sub b2i {
    my $bitstring = unpack('b*', @_);
    $bitstring =~ s/0+$//;
    return split //, $bitstring;
}