How to inflate a GZIP in perl

Forum Moderators: coopster & phranque

Message Too Old, No Replies

At my provider no mod_gunzip available

8:27 pm on Mar 30, 2009 (gmt 0)

Since at my content provider, mod_gunzip is not available,
I have to simulate the most important part myself.

use Compress::Zlib;

my $buffer = sub_to_laod_a_file ( "gzip compressed file" );

my $out = uncompress ( $buffer );

$buffer contains the compressed file,
but $out has 0 byte length.

What's wrong?

4:12 am on Mar 31, 2009 (gmt 0)

if $out contains no content it is undefined which means an error occurred:
COMPRESS/UNCOMPRESS [search.cpan.org]

these methods are intended for ZLIB Compressed Data Format Specification [ietf.org] (RFC-1950) and you probably want something that works for GZIP file format specification [ietf.org] (RFC-1952).

try using this instead;

$out = Compress::Zlib::memGunzip($buffer) ;

6:30 am on Mar 31, 2009 (gmt 0)

Thanks! That works!