dateien komprimieren lassen

[alex]

Hi Chris!

Das klappt soweit nur mit dem Packen:

CODE

use Compress::Zlib ;

open (DATEI, "data/statistik_ich.txt");
local $/;
$zip = Compress::Zlib::memGzip(<DATEI>);
close (DATEI);

open (TMP, ">data/statistik_ich.gzip");
print TMP $zip;
close (TMP);

END CODE

Bis hierhin ist alles in Ordnung, im Verzeichnis liegt die gepackte Datei. Aber ich habe sie mit Perl nicht wieder entpacken können (mit dem System schon):

ENTPACKCODE

open (TMP, "data/statistik_ich.gzip");
local $/;
$unzip = Compress::Zlib::memGunzip(<TMP>) ;
print $unzip;
close (TMP);

ENDE ENTPACKCODE

Das ruft folgende Fehlermeldung hervor:

Argument "^_M-^K^H" isn't numeric in subroutine entry at /usr/lib/perl5/site_perl/5.6.1/i586-linux/Compress/Zlib.pm line 83.
Your vendor has not defined Compress::Zlib macro memGunzip at ./compress4.cgi line 22

$unzip = Compress::Zlib::memGunzip($zip); geht ebenfalls genauso wenig .-(

Was muss ich denn noch beachten?

gruesse
alex