如何創建gzip壓縮的HTTP :: Response？

Question

我需要用壓縮數據創建一個HTTP :: Response。我如何着手解壓內容？我只需添加適當的標題並使用Compress :: Zlib自己壓縮它？或者是否有任何LWP模塊提供了處理這個問題的方法？

Answer 1

這是你所需要的？您可以對數據進行gzip，設置Content-encoding標題並將其發送出去。

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;