使用Perl修改Bitstream

Question

在Perl中修改比特后，我如何将它们重新打包到比特流中呢？

我目前正在使用以下方法来解压缩：

my $bits = 5;
my $code = '';

foreach my $i (reverse 0..$bits-1) {
    $code <<= 1;
    $code  |= vec($data,$i,1);
}

例如，输出可能是16。

编辑：

这个问题与GIF图像的数据块有关。

我想要做的是填充LZW代码，以匹配PDF的LZWDecode方法所需的长度。

LZWDecode需要8位图像，其中<Clear>代码为256，<End>代码为257 (PDF参考，第44页)。

对于5位图像，编码0-31映射到图像全局颜色表中的颜色，<Clear>为32，<End>为33。

因此，我需要重新打包比特流，以便代码0-31保持不变，但是32+被256-32抵消。

我使用的是ActiveState Perl for Windows。

Answer 1

# Unpack from 8 bit fields.
my @vals = unpack('C*', $bytes);

... transform @vals into 5 bit values here ...

# Pack to 5 bit fields.
my $bits = join '', map substr(pack('B*', $val), -5), @vals;
$bits .= '0' x (-length($bits) % 8);  # Pad with zeros to byte boundary
$bytes = pack('B*', $bits);