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

[thread]14972[/thread]

Dekomprimierung in HTTP::Message aussschalten [gelöst]

Leser: 16

Articles: hide open all | hide show old branches

+15 replies
GwenDragon

2010-04-26 14:23
User since
2005-01-17
14711 Artikel
Admin1
Ich verwende 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 HTTP::Message ausschalten?
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

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
- esskar
  
  2010-04-26 14:28
  User since
  2003-08-04
  7321 Artikel
  ModeratorIn
  hab deinen code jetzt in mal durchlaufen lassen:
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
  
  DEBUG#### gzip, x-gzip, deflate, x-bzip2 GET http://www.gwendragon.de/css/standard.css Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, image/png, */* Accept-Charset: iso-8859-1,*,utf-8 Accept-Encoding: gzip Accept-Language: de-DE 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 ▼ ♥ÑXÙn█6¶■m?♣ß¼@←DÂýÍi,ú├Æ┤Cç§♥♠t↑ð6♥(ëÆ©ðñBQqÊóo▓þÏ»²ÙïÝ∟ÆÍ═n╗b.jYççþã´\ÿ▼ÆéÛè↓2ßò ╬╬û½`>YÅÃà‗a<┌‗È¶◄Öçßâ§xT0×↨ã┐ÆÅÒq¼Ê{dKöP:"▒á╔5eJÜáÔ´ÖeØå¾;bF7\▄Gõ5-Èå×És═®8!/Ö©eå'@®¿¼éèi×┴▲┴%♂→¡Ë%ÉbPækU╦4ZÀ♣7♀WÈ↔*Õ2KöNÖ♫Ç┤&ÒQIËÈÆC`█PØs ┐ºKÂ▒^╠Ä±3&Ãús!r Âaáò╝a<)ÿ╠öÌP├`◄?│q|ç l♥_òÐJµõC#♦e╝Ô‗║r³│1ì└àkÓÂ▲àaå:it╦+0;mùfÃG½ıÚ·xFÄ╬B³8¥B¦2mUðê&å▀▓Ä┤ý▒Òz[hû}¸l2-Ëlrà'Êå)"Á▬☼g1↨►æ↓0Ls×="R♣Üòî→{Ü62>Lüv±^äÕ]+²Ågô┬ÿ2Ü═&W'ñG É+®fÊ¼{X┴cÑQªÆ║éÿ´♥´(╦V↔ ßÚôÐàuÅx└ ♦°&À→↔"+s/ -ñÆ¼¦è▄úO⌂┼LWI☺╚7LÆ↔éè9¯¯fÈ®K¥b1\xé♂;ÇFò@s►/▲☼y↨¹╝♂¤¹d╚Ù│¢X☻õïË┴Û╩-Ä┌ )S♂êgÿF©▒ë«7î╦▓6ØBCkú→·[s_▓gU↔o©┴S#qaîHÑ♦O╔ ó╝#╣ª¸k╗û E☺+▬2Ó∟Æ╝⌂;¶üÊÅc♥ð♥ÙáÍt┤ ±¬Ga←╩Eƒ♦°Ý‼JZU[░Þj►ö]┴▄ð╗└{vµÔ┤SÌ±¨ÚS╗Æq&R,┼Ý╩Ö§Êwy♫.♥Þ2♀Î¹±¶4fÂp¹û!¿¢╝à7¬←‼W♠█äïò1jËÊÐÓÇ L¿õ·♠↨{¨hÅ█óÞ0ÓV6☻8▬Dé╩³a╩▲ß~+¿è╚õ¦"£┐ÿ©þÑ⌂×¹þ┘d©7©|┘¦>y↨åþ↨╚↔å↨↨nÎÒò⌂×☼v3┘▀┌Q°╝QÞ×½┴ÍL´k┼»ð®>☼{·¹+ì%¡ ▀ôøoîA¤ ■÷ ►âÍ ßÍ»ãá§ ÉÍoÄ┴ìà█M¶3(♣╠MÇ↕║ûëT╔d`à[¥êB3Ë]åD¿ èÁ∟Òä;$÷ã2☼─>:üÉ‗¬¶¶▲'M@qº´îGÃú↨\fƒ■╔kÖ¤^}·←:)³☻║E}èU◄3↑2ËV┤ö%J█"¶┘^lÎ→⌂♫▓ý< ô▀╩¶r ~|▄ì}Épù*e♦ÆØ▄*ÝªF╬4: →ä5ÚWj╚Ý♦Y?♀FÔKUkÄàjÔ⌂æ_ÏvrB6J*↑O↕Â7X?X¸¹µüÇaÚâV░m8¼g[Mí▀Wu ÍT§åÐYD♫↨¡%■├ia┐0Ïµ█╠◄QH×└ßà«←Ý▼Î×=ì╠@ËöÎÉDºn╬+±¶\E#[♠►üwÿîÃÓ▼Ü▄Â█¦8♣±▬¦ Y╠▬Îƒ×W÷D~▬ðºíã☻<4◄*þ ♫F╬cxHn ⌂┤╬╚´,ãë╝3┤∟┴XtBªì··w◄0│⌂∟ûðÇx=©tt¸YÈ▲a↨t¢÷└@5ÈÂý4¯×t7╣Ø↔ýÓ~$Þj¬Eøj☺÷l'l7ê©◄e░Ap▄Ë∟%ùh→F┌1·Þt∟pSKwnp‼┘g┴·╣«Sq©§Û♥ Úzå·╗n9Å♦»<8☻∟È ³└}¿Çtà8W╗r♠n[äßÄ?ÙM9=‗u┴mmµ¢eÏ╗]┌→A:¸KÅI_↑►näîºh♀┌Nl26û4┘Ê¢Ø|╬KP:♣§´↓H╩¸ækÎ‼UÌ█S¨‗Ý¦☼¡V\me┘cÕ2Áàp^&ØÕé2Ö├M♂M´╠Ì♫fûıÆ{↕éØê¸èE¤4J<v↕X@►©Zð╦õZVpG71^5ê+p↕¥!↨┤Ô§£Ü é½♣─uZ]s╠Òû¦N> ▓↔k;í1@«Â⌂B)as┘fV░Z¡ý█¯☼!÷Ñ_♣♫¶åÂ╠§<♣OÐ³⌂☺↕´Î─k◄
- pq
  
  2010-04-26 14:31
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  bei mir liefert $response->content auch den komprimierten content, so wie in HTTP::Response dokumentiert.
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
- +5 replies
- GwenDragon
  
  2010-04-26 15:09
  
  User since
  2005-01-17
  14711 Artikel
  Admin1
  
  Ah ja, also richtig ausleifern tut er, der Webserver.
  
  Aber seltsam.
  Ich bekomme auf meinem PC nur unkomprimierten Inhalt unter Windows.
  Vielleicht hat irgendein Perl-gzip-Modul einen Hau weg.
  
  Ich boote mal auf meinen Linux-PC um das zu testen.
  
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +4 replies
  - esskar
    
    2010-04-26 15:35
    
    User since
    2003-08-04
    7321 Artikel
    ModeratorIn
    
    2010-04-26T13:09:09 GwenDragon
    Vielleicht hat irgendein Perl-gzip-Modul einen Hau weg.
    
    eher nicht.
    steht in deinem request dann auch wirklich "'Accept-Encoding' => 'gzip'" drin? bzw. etwas, was dein webserver dann auch kann?
    - +3 replies
    - GwenDragon
      
      2010-04-26 15:45
      
      User since
      2005-01-17
      14711 Artikel
      Admin1
      
      Ja. Auf meinem entfernten Linux-System zuhause (über SSH getestet) geht es.
      
      Warum das auf diesem System, an dem ich gerade sitze (nicht meiner) nicht geht, verstehe ich nicht.
      Muss ich doch mal nachfragen.
      
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - esskar
        
        2010-04-26 15:52
        
        User since
        2003-08-04
        7321 Artikel
        ModeratorIn
        
        ich hätt jetzt gedacht, dass dein LWP oder ähnliche ggf. den Header zurecht biegt, wenn auf deinem system nicht der gewünschte decompressor installiert ist. oder dein HTTP::Response ist extrem alt, obwohl ich des ->content immer schon die genau antwort erhielt, und decoded_content später nur dazu kam. (siehe Release 5.802)
      - esskar
        
        2010-04-26 16:06
        
        User since
        2003-08-04
        7321 Artikel
        ModeratorIn
        
        poste doch mal deine debug-ausgabe. ( typischer newbie-post-fehler! ) :-)
- +4 replies
- GwenDragon
  
  2010-04-26 16:09
  
  User since
  2005-01-17
  14711 Artikel
  Admin1
  
  Das Skript war ja nur ein Testskript, um von einer mir bekannten Quelle das Verhalten zu überprüfen, wenn ich was an den Server sende.
  
  So eine böse Falle auf dem Fremdrechner. Die haben irgendeine Cisco Appliance, die filtert doch tatsächlich falsch. Grrr. Lässt die Responseheader so stehen und liefert aber unkomprimiert aus.
  Ich werde mal dem Netz-Admin dort ein Mail schreiben.
  
  Danke fürs Testen an euch.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +2 replies
  - esskar
    
    2010-04-26 16:11
    
    User since
    2003-08-04
    7321 Artikel
    ModeratorIn
    
    2010-04-26T14:09:41 GwenDragon
    Das Skript war ja nur ein Testskript, um von einer mir bekannten Quelle das Verhalten zu überprüfen, wenn ich was an den Server sende.
    
    selbst dann hätt ich doch gerne die ausgabe deines testes gesehen. :-) Naja, beim nächsten Mal.
    - GwenDragon
      
      2010-04-26 16:14
      
      User since
      2005-01-17
      14711 Artikel
      Admin1
      
      DEBUG#### gzip, x-gzip, deflate, x-bzip2 GET http://www.gwendragon.de/css/standard.css Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, image/png, */* Accept-Charset: iso-8859-1,*,utf-8 Accept-Encoding: gzip Accept-Language: de-DE User-Agent: Mozilla/5.0 (X11; U; Linux i686; de; rv:1.9.1.9) Gecko/20100401 Ubun tu/9.10 (karmic) Firefox/3.5.9 @charset "iso-8859-1"; html { width: 100%; height: 100%; } body { color: black; font-size: 100.01%; font-family: Tahoma, Arial, Helvetica, sans-serif; line-height: 1.5; background-color: white; box-sizing: border-box; padding: 0; margin: 0.5em; } ..... /* Klassen f├╝r unsichtbare Elemente im Basislayout */ .skip, .unsichtbar { position: absolute; left: 0px; top: -999px; width: 1px; height: 1px; line-height: 1px; overflow: hidden; } (Mittelteil gekürzt)
      Last edited: 2010-04-26 16:16:08 +0200 (CEST)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - GwenDragon
    
    2010-04-26 16:23
    
    User since
    2005-01-17
    14711 Artikel
    Admin1
    
    Aha, hatte gerade eine Rückmeldung wegen der Cisco Appliance, die war falsch eingestellt, da wollte jemand schlau sein und hat "eigene" Regeln geschrieben.
    Typisch SAOH! (~~ BOFH) *grrr*
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +3 replies
- KKO
  
  2010-04-26 17:54
  
  User since
  2003-11-05
  124 Artikel
  BenutzerIn
  
  Last edited: 2010-04-26 17:56:09 +0200 (CEST)
  Gruß
  KKO
  - GwenDragon
    
    2010-04-26 17:57
    
    User since
    2005-01-17
    14711 Artikel
    Admin1
    
    Ja, klar. Dann gibt es den Content ohne Komprimierung durch den Quell-Server. Das weiß ich doch. ;)
    
    Aber der Sinn meiner Aktion war ja zu prüfen, ob der Quellserver den korrekten Content je nach Content-Encoding des Clients sendet.
    
    //EDIT: Aha, KKO hat sich wohl vertan. ;)
    Soll ich dein Posting und meines löschen?
    Last edited: 2010-04-26 17:58:43 +0200 (CEST)
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - pq
    
    2010-04-26 17:59
    
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    nicht gerade höflich, den kompletten content eines posts zu löschen ohne jeglichen kommentar. zumindest ein "hab mich vertan" wäre nett.
    Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
    lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem

View all threads created 2010-04-26 14:23.