This can be generalised for other orderings of the bytes, and of the bits in each byte, of the bitstring. Four types of bitstring can be identified:
big-endian: ms-bit of first byte is the ms-bit of the multi-byte number. This is handled as shown, ie: my $h = unpack( 'H*', $bitstring ) ;
little-endian: ls-bit of first byte is the ls-bit of the multi-byte number. This is handled: my $h = unpack( 'H*', scalar reverse $bitstring ) ;
Note that this is the same order as vec($v, $b, 1)
big-endian reversed bytes: ls-bit of first byte is the ms-bit of the multi-byte number. This is handled: my $h = unpack( 'H*', pack('b*', unpack('B*', $bitstring)) ) ;
little-endian reversed bytes: ms-bit of first byte is the ls-bit of the multi-byte number. This is handled: my $h = unpack( 'H*', pack('b*', unpack('B*', scalar reverse $bitstr
+ing)) ) ;
| [reply] [d/l] [select] |