linux - 如何从我的 Perl 服务器发回自定义 HTTP header ？

Question

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

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

我可以使用 $c->send_basic_header 发回基本 HTTP header ，但是一旦我尝试使用 $c->send_header( $field1, $value1, $field2, $value2, ... ) 它不起作用。

我无法理解问题所在。

我要发送的 header 是

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

我是 Perl 的新手，所以请帮助我了解如何执行此操作。

Answer 1

您没有显示您的代码，但您是否意识到您需要 send_basic_header 以及 send_header？

你的代码应该是这样的

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