Использование Perl для изменения битового потока

Question

Как я могу перекомпилировать биты в битовый поток после изменения их в Perl?

настоящее время я использую следующие распаковывать:

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

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

Например, вывод может быть 16.

EDIT:

Этот вопрос относится к блоку данных изображение 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 для 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);