Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic

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

by rafl (Friar)
on Jan 03, 2008 at 00:29 UTC ( #660096=note: print w/replies, xml ) Need Help??

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));

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;
    No luck at all.... i surrender. Thanks for all rafl.
      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(); ~

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://660096]
and a soft breeze sighs...

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (6)
As of 2017-10-21 08:38 GMT
Find Nodes?
    Voting Booth?
    My fridge is mostly full of:

    Results (269 votes). Check out past polls.