Alexander Foken: Daten komprimiert senden

Beitrag lesen

Moin Moin !

#!c:\perl\bin\perl.exe

-w fehlt.
-T fehlt.

use strict fehlt.

use Compress::Zlib;

$data = '<html><head><title>Testseite</title></head><body>Kleiner Test</body></html>';

my bzw. our fehlt.

if(%ENV->{'HTTP_ACCEPT_ENCODING'} =~ /gzip/)

%ENV ist ein Hash, keine Hash-Referenz. Siehe Andres' Posting.

{
  $data = compress($data);

print "Vary: Accept-Encoding\n";
  print "Content-Encoding: gzip\n";

Header werden mit CR-LF abgeschlossen.

}

print "Content-Type: text/html\n\n".$data;

Header werden mit CR-LF abgeschlossen.

Du suchst Transfer-Encoding, mod_gzip, gzip_cnc, und mod_deflate.

Alexander

--
Nein, ich beantworte keine Fragen per eMail. Dafür ist das Forum da.
Today I will gladly share my knowledge and experience, for there are no sweeter words than "I told you so!"