gzip圧縮HTTP :: Responseを作成するにはどうすればよいですか？

Question

圧縮データでHTTP :: Responseを作成する必要があります。コンテンツをgzipにするにはどうすればいいですか？適切なヘッダーを追加して、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;