如何从我的Perl服务器发回自定义HTTP标头？

Question

我正在使用HTTP::Daemon编写Perl HTTP服务器。我的Perl客户端正在向服务器发送HEAD请求以获取IO必须GET以后的文件的内容长度。

我的问题是我无法生成自定义标头并将其发送回客户端。

我可以使用$c->send_basic_header发回基本HTTP标头，但是一旦我尝试使用$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_header 以及<{em>}作为send_header？

您的代码应如下所示

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