当前位置：文江博客话题详情

如何创建 gzip 压缩的 HTTP::Response？

发布于 2024-11-27 00:38:01 字数 107 浏览 2 评论 0原文

我需要使用压缩数据创建 HTTP::Response 。我该如何对内容进行压缩？我是否只需添加适当的标头并使用 Compress::Zlib 自行压缩它？或者 LWP 模块是否提供了处理此问题的方法？

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

凉城已无爱 2024-12-04 00:38:01

这是你需要的吗？您对数据进行压缩，设置内容编码标头，然后将其发送出去。

use strict;
use warnings;

use HTTP::Response;
use IO::Compress::Gzip qw(gzip);

my $data = q(My cat's name is Buster);

my $gzipped_data;
my $gzip = gzip \$data => \$gzipped_data;
print STDERR $gzipped_data;

my $response = HTTP::Response->new;

$response->code( 200 );
$response->header( 'Content-type'     => 'text/plain' );
$response->header( 'Content-encoding' => 'gzip' );
$response->header( 'Content-length'   => length $gzipped_data );

$response->content( $gzipped_data );

print $response->as_string;

Is this what you need? You gzip the data, set the Content-encoding header, and send it off.

use strict;
use warnings;

use HTTP::Response;
use IO::Compress::Gzip qw(gzip);

my $data = q(My cat's name is Buster);

my $gzipped_data;
my $gzip = gzip \$data => \$gzipped_data;
print STDERR $gzipped_data;

my $response = HTTP::Response->new;

$response->code( 200 );
$response->header( 'Content-type'     => 'text/plain' );
$response->header( 'Content-encoding' => 'gzip' );
$response->header( 'Content-length'   => length $gzipped_data );

$response->content( $gzipped_data );

print $response->as_string;

回复收藏 0 原文

~没有更多了~