Perl Разделить двоичные данные на куски с помощью Unpack

Question

Я использую Transfer-Encoding: chunked для написания ответа HTTP.

Ответ разделен на части с помощью следующих действий:

my $template = "a$buffer_size" x int(length($response)/$buffer_size) . 'a*'; 

foreach my $buffer (unpack $template, $response){ 
    ... 
} 

Это хорошо работает, когда тип контента text/html, но это повреждающих двоичные данные, такие как application/pdf.

Может ли unpack использоваться для разделения двоичных данных на равные длины?

Answer 1

Не знаю, почему unpack не подходит в этом контексте, но я наткнулся на решение.

Если я манипулировать ответ с файлом в памяти, unpack работает правильно:

my $resp; 
open (my $fh, '>', \$resp); 
my $fh_old = select($fh); 
print $response; 
close $fh; 
select($fh_old); 
$response = $resp; 

Любое представление о том, почему это работает?

Answer 2

Это прекрасно работает с двоичными данными. Проблема в другом месте. (У вас binmode все соответствующие ручки?)