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

Put together from the synopsis of those two pages I linked to, but untested:

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

my $output = Compress::Zlib::memGunzip(decode_base64($input));

[download]

Replies are listed 'Best First'.
Re^4: How to decode this "gzinflate (base64_decode(***
by Zeokat (Novice) on Jan 03, 2008 at 00:47 UTC 
    #!/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.
[reply]
[d/l]
      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