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!"
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!"