Help for this page

Select Code to Download


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