Как отправить пользовательские HTTP-заголовки с моего сервера Perl?

Question

Я пишу HTTP-сервер Perl, используя HTTP::Daemon. Мой клиент Perl отправляет на сервер запрос HEAD, чтобы получить длину содержимого файла, который имеет IO, до GET.

Моя проблема в том, что я не могу создать пользовательский заголовок и отправить его клиенту.

Я могу отправить базовые заголовки HTTP, используя $c->send_basic_header, но как только я попытаюсь отправить определенные заголовки с помощью $c->send_header($field1, $value1, $field2, $value2, ...), это не сработает.

Я не могу понять, в чем проблема.

Заголовки, которые я пытаюсь отправить это

$c->send_header('Content-Type','image/jpeg','Cotent-Length','56360','Accept-Ranges','bytes') 

Я новичок в Perl, поэтому, пожалуйста, помогите мне понять, как это сделать.

Answer 1

Вы не указали код, но знаете ли, что вам нужно send_basic_headersend_header?

Ваш код должен выглядеть следующим образом

$c->send_basic_header; 
$c->send_header(
    'Content-Type' => 'image/jpeg', 
    'Content-Length' => '56360', 
    'Accept-Ranges' => 'bytes', 
); 
$c->send_crlf;