WWW::Mechanize::GZip (3pm)

Version 0.10

    use WWW::Mechanize::GZip;

    my $mech = WWW::Mechanize::GZip->new();
    my $response = $mech->get( $url );

    print "x-content-length (before unzip) = ", $response->header('x-content-length');
    print "content-length (after unzip) = ", $response->header('content-length');

The WWW::Mechanize::GZip module tries to fetch a \s-1URL\s0 by requesting gzip-compression from the webserver.

If the response contains a header with 'Content-Encoding: gzip', it decompresses the response in order to get the original (uncompressed) content.

This module will help to reduce bandwith fetching webpages, if supported by the webeserver. If the webserver does not support gzip-compression, no decompression will be made.

This modules is a direct subclass of WWW::Mechanize and will therefore support any methods provided by WWW::Mechanize.

The decompression is handled by Compress::Zlib::memGunzip.

There is a small webform, you can instantly test, whether a webserver supports gzip-compression on a particular \s-1URL:\s0 <http://www.computerhandlung.de/www-mechanize-gzip.htm>

\s-1METHODS\s0

prepare_request

Adds 'Accept-Encoding' => 'gzip' to outgoing HTTP-headers before sending.

send_request

Unzips response-body if 'content-encoding' is 'gzip' and corrects 'content-length' to unzipped content-length.

WWW::Mechanize

Compress::Zlib

Peter Giessner \*(C`[email protected]\*(C'

Copyright (c) 2007, Peter Giessner \*(C`[email protected]\*(C'. All rights reserved.

This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.