Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
use strict;
...
    my $template = shift;
    return unpack($template, pack("B$size", substr("0" x $size . $bits
+ , -$size)));
}

Select or download this

#!/usr/bin/perl
use strict;
...
    my $template = shift;
    return unpack($template, pack("B$size", substr("0" x $size . $bits
+ , -$size)));
}