Thread Probleme mit Compress::Zlib::memGzip (12 answers)
Opened by burnersk at 2008-07-15 16:13

burnersk
 2008-07-15 16:13
#112138 #112138
User since
2008-03-25
83 Artikel
BenutzerIn
[default_avatar]
Hallo,

ich versuche gerade, für eines meiner Projekte, eine GZIP Kompremierung mit CPAN:Compress::Zlib zu realisieren.
Das Resultat soll dann an den Browser gesandt und dort angezeit werden.

Momentan sieht mein Code wie folgt aus:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

#!/usr/bin/perl -wt
use Compress::Zlib;
use Digest::MD5 qw(md5_hex);
my $now = "Tue, 15 Jul 2008 12:06:38 GMT";
my $content = 'testtesttesttesttesttesttesttesttesttest';
$content = &Compress::Zlib::memGzip("$content");
print("HTTP/1.1 200 OK\n");
print("Allow", ": ", "GET, POST", "\n");
print("Connection", ": ", "close", "\n");
print("Content-Encoding", ": ", "gzip", "\n");
print("Content-Length", ": ", length($content), "\n");
print("Content-MD5", ": ", &md5_hex($content), "\n");
print("Content-Type", ": ", "text/plain", "; ", "charset=UTF-8", "\n");
print("Date", ": ", "$now", "\n");
print("Last-Modified", ": ", "$now", "\n");
print("Server", ": ", "Neu1/1.0", "\n");
print("\n");
print("$content");

Ausgabe:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
HTTP/1.1 200 OK
Allow: GET, POST
Connection: close
Content-Encoding: gzip
Content-Length: 27
Content-MD5: 05e38f2fe0fb73e564c5c4a8d9fb580e
Content-Type: text/plain; charset=UTF-8
Date: Tue, 15 Jul 2008 12:06:38 GMT
Last-Modified: Tue, 15 Jul 2008 12:06:38 GMT
Server: Neu1/1.0

‹+I-.)!/)¨(


Nun sollte doch der Browser doch nach meinem Verständnis "testtesttesttesttesttesttesttesttesttest" als Plaintext ausgeben und nicht "‹+I-.)!/)¨(".
Fehlt bei mir noch ein Header-Field, oder was mache ich falsch? Oder ist es im Endeffekt ein Fehler von FF3 und ich hab alles richtig gemacht?

View full thread Probleme mit Compress::Zlib::memGzip