Dekomprimierung in HTTP::Message aussschalten (gelöst) - #136460 (Webframeworks, Sonstige Fragen zur Webprogrammierung mit Perl)

GwenDragon

2010-04-26 14:23

User since
2005-01-17
14741 Artikel
Admin1

Ich verwende CPAN:

LWP, um einen Server abzufragen, was er sendet, wenn der Browser dekomprimieren kann.
Ich will eigentlich den Binärcontent empfangen und nicht den dekomprimierten.

Wie kann ich das automatische dekomprimieren in CPAN:

HTTP::Message ausschalten?

Code (perl): (dl )

use strict;
use warnings;
use LWP;

my $DEBUG = 1;

my $browser = LWP::UserAgent->new;
my $can_accept = HTTP::Message::decodable;

my $url = 'http://www.gwendragon.de/css/standard.css';

my $response = $browser->get($url,
   #'User-Agent' => 'Opera/9.60 (Windows NT 5.1; U; de) Presto/2.1.1',
   #'User-Agent' => 'Mozilla/4.76 [en] (Win98; U)',
   'User-Agent' => 'Mozilla/5.0 (X11; U; Linux i686; de; rv:1.9.1.9) Gecko/20100401 Ubuntu/9.10 (karmic) Firefox/3.5.9',
   #'User-Agent' => 'Mozilla/4.06 (compatible; MSIE 4.06; Windows 95)',
   'Accept' => 'image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, image/png, */*',
   'Accept-Charset' => 'iso-8859-1,*,utf-8',
   'Accept-Language' => 'de-DE',
   'Accept-Encoding' => 'gzip',
  );
  
$DEBUG && print "DEBUG#### ", $can_accept, "\n";

print "GET ", $response->request->uri->as_string, "\n",
      $response->request->headers_as_string, "\n",
          $response->content;

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten