使用Perl來修改一個比特流

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 Reference，第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);