Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris

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

Comment on Re^3: How to decode this "gzinflate (base64_decode(***
Download Code
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 the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (3)
As of 2015-11-28 00:27 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (735 votes), past polls