Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling

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 all is quiet...

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (6)
As of 2017-04-24 06:25 GMT
Find Nodes?
    Voting Booth?
    I'm a fool:

    Results (433 votes). Check out past polls.