Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

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
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?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://660096]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (6)
As of 2014-12-27 15:16 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (177 votes), past polls