use Compress::Zlib;
my $results = Compress::Zlib::memGunzip($resp->content);
On Wed, 24 Nov 2004 14:32:27 +0100, Ing. Branislav Gerzo <[EMAIL PROTECTED]>
wrote:
> Hi all,
>
> I have this snippet, and I'd like to decompress its contents:
>
> sub dwl {
> my $ua = LWP::UserAgent->new;
> $ua->default_header('Accept-Encoding' => 'gzip, deflate');
> $resp = $ua->get(@_);
> return ($resp->content, $resp->status_line, $resp->is_success) if
> wantarray;
> return unless $resp->is_success;
> return $resp->content;
> }
>
> thanks for any idea.
>
> --
>
> --. ,-- ,- ICQ: 7552083 \|||/ `//EB: www.2ge.us
> ,--' | - |-- IRC: [2ge] (. .) ,\\SN: 2ge!2ge_us
> `====+==+=+===~ ~=============-o00-(_)-00o-================~
> * <- Tribble */ <-- Tribble with a lightsaber
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> <http://learn.perl.org/> <http://learn.perl.org/first-response>
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
