VERSION
Version 0.10SYNOPSIS
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');
DESCRIPTION
The WWW::Mechanize::GZip module tries to fetch a URL 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 URL: <http://www.computerhandlung.de/www-mechanize-gzip.htm>
METHODS
- 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.
AUTHOR
Peter Giessner "[email protected]"LICENCE AND COPYRIGHT
Copyright (c) 2007, Peter Giessner "[email protected]". All rights reserved.This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.