#!/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(); ~
In reply to Re^5: How to decode this "gzinflate (base64_decode(***
by Anonymous Monk
in thread How to decode this "gzinflate (base64_decode(***
by Zeokat
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |