in reply to Re^3: How to decode this "gzinflate (base64_decode(***
in thread How to decode this "gzinflate (base64_decode(***

#!/usr/bin/perl -w
use strict;

use MIME::Base64;
use Compress::Zlib;

my $input = '******code*****';
my $output = Compress::Zlib::memGunzip(decode_base64($input));
print $output;

[download]
No luck at all.... i surrender. Thanks for all rafl.

Replies are listed 'Best First'.
Re^5: How to decode this "gzinflate (base64_decode(***
by Anonymous Monk on Feb 01, 2008 at 11:58 UTC
    Try this. it worked for me. :) 
    #!/usr/bin/perl -w
use Compress::Zlib;


my $item;
my $zipFileBuffer;
my $gz;
my $gzFile;

$gzFile = "/sample.gz";



$gz = gzopen($gzFile, 'r') or die "Can not gzopen \n";
$gz->gzread($zipFileBuffer) or die "Can not read in gzip file\n";
my $content - Compress::Zlib::memGunzip($zipFileBuffer) or die "unable
+ to Gunzip\n";
print $zipFileBuffer."\n";
$gz->gzclose();
~

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom