Perl HTTP/1.1 206部分内容

Question

如何将服务器的HTTP响应设置为：

HTTP/1.1 206 Partial Content

在PHP中，我会编写header('HTTP/1.1 206 Partial Content')，但是在Perl中呢？

我正在使用这段代码，但是客户端报告了一个HTTP 500错误

if ( defined $ENV{HTTP_RANGE} ) {

    my $startrange = 500;
    my $endrange = 900;
    $length = $endrange-$startrange;

    print qq{HTTP/1.1 206 Partial Content\n};
    my $range = $startrange.'-'.$endrange.'/'.$filesize;
    print qq{Content-Range: bytes $range\n};
}

print qq{Accept-Ranges: bytes\n};
print qq{Content-Disposition: attachment; filename="$filename"\n};
print qq{Content-length: $length\n\n};

我检查了错误日志，其中说：

脚本‘Dowload.cgi’中格式错误的标题:错误的标题: HTTP/1.1 206部分内容

Answer 1

您不应该在CGI脚本中为HTTP状态线发送部分内容响应。您的脚本应该发送正确的CGI响应

1*报头-字段NL响应-主体

这应该是可行的：

Status: 206 Partial Content\n
Content-Range: bytes 500-900/12000\n
Content-Type: ?\n

您的脚本还必须发送一个内容类型标题：

如果返回实体体，则脚本必须在响应中提供一个内容类型字段。