dateien komprimieren lassen

[Christian Kruse]

Hallo,

In der Hilfe war was zu lesen von $var = compress(string), aber das hat sich
bei mir immer als einzelnes stringkomprimieren herausgestellt, ich habe aber
nicht die Absicht, das über alle zeilen in der zu komprimierenden datei laufen
zu lassen, gibt es da nicht was simpleres?

use Compress::Zlib;

$compressed = Compress::Zlib::memGzip($str);

um die komplette Datei zu zippen:

{
  local $/;
  $compressed = Compress::Zlib::memGzip(<DAT>);
}

Mehr Infos:

perldoc perlvar
perldoc Compress::Zlib

Gruesse,
 CK