Christian Kruse: dateien komprimieren lassen

Beitrag lesen

Hallo Michael,

mit welcher Betriebssystemplattform arbeitest Du?
ich habe meinen apache unter suse 7.3 zu laufen.

schade - dann scheidet "binmode" als Fehlerursache wohl
aus.

Da waere ich mir nicht so sicher. Einige Sachen gehen auch bei einem
Unix ohne 'binmode()' nicht durch das Dateihandle ;-)

Aber es sieht in diesem Fall eher so aus, als sei Compress::Zlib dafuer
verantwortlich. Ich wuerde an dieser Stelle

Compress::Zlib::gzopen
Compress::Zlib::gzread
Compress::Zlib::gzwrite

vorschlagen. Ausfuehrliche Doku ist beim Modul dabei; Beispiel:

my $gz = gzopen("file.gz","wb9");
open DAT,'<file' or die $!;

{
  local $/;
  $gz->gzwrite(<DAT>);
}

$gz->gzclose();

my $gz = gzopen("file.gz","rb");
open DAT,'>file' or die $!;

my $buff;
$gz->gzread($buff);
print DAT $buff;
$gz->close;

Gruesse,
 CK