LWP and gzip

[sprint@pilot.net]

New to perl and experimenting with LWP.

However I have come across some website content that comes down as
"content-encoding: gzip" followed by a few hundred bytes of
gobbledegook.

Can someone point me to some sample code to de-crypt this on the fly,
please

Thanks

[Sam Holden]

On Mon, 08 Sep 2003 08:50:13 +0100, [email]sprint@pilot.net[/email] <sprint@pilot.net> wrote:

> New to perl and experimenting with LWP.
>
> However I have come across some website content that comes down as
> "content-encoding: gzip" followed by a few hundred bytes of
> gobbledegook.
>
> Can someone point me to some sample code to de-crypt this on the fly,
> please

I'd guess that the uncompress function in Compress::Zlib might do the trick.

However, it seems a bit "rude" for a web server to send gzip encoded
stuff unless you specified it in the Accept-Encoding header of the request.

--
Sam Holden

[Gregory Toomey]

<sprint@pilot.net> wrote in message
news:rvcolvootvpdunblk55jpgc28qbivb54s7@4ax.com...

> New to perl and experimenting with LWP.
>
> However I have come across some website content that comes down as
> "content-encoding: gzip" followed by a few hundred bytes of
> gobbledegook.
>
> Can someone point me to some sample code to de-crypt this on the fly,
> please
>
> Thanks

You are proabably downloading a file stored in zip format on the server.
Archive::zip (available from [url]www.cpan.org[/url]) works with plain zip files.

On Linux I would call the Linux utilities "gunzip" or "zcat", using the Perl
"system" command, to unzip the file.

gtoomey

[news@roaima.freeserve.co.uk]

[email]sprint@pilot.net[/email] wrote:

> However I have come across some website content that comes down as
> "content-encoding: gzip" followed by a few hundred bytes of
> gobbledegook.

The webserver shouldn't provide content with gzip encoding unless your
client has offered that capability. Complain to the website provider.

> Can someone point me to some sample code to de-crypt this on the fly,
> please

Feed the data content through one of the many gzip modules
(e.g. Compress:Zlib or maybe PerlIO::gzip) to uncompress it.

Chris
--
@s=split(//,"Je,\nhn ersloak rcet thuarP");$k=$l=@s;for(;$k;$k--){$i=($i+1)%$l
until$s[$i];$c=$s[$i];print$c;undef$s[$i];$i=($i+(ord$c))%$l}