Hi Meir, I don't know how get method uses uncompress internally either. Like you describe, I save the file to a directory and deflate it using unzip.
Thanks Uday On Sun, Apr 15, 2012 at 3:03 PM, Meir Guttman <m...@guttman.co.il> wrote: > Dear Uday, > > I don't know. May be, but if so, I am not sure how. You see, I know > very little about the inner workings of all these complex packages. > (As an aside, this is a testimony to the value of OOP. Without any > knowledge of the implementation, I am able to use it.) > > So, the question is how do I invoke such a deflating package where > the ':content_file' => $filename hash short circuits and directs the > response directly to a file. I am sure that the deflating package > is invoked by the $response->decoded_content method. But I don’t > know about any hash that will tell the 'get' method to deflate the > response on the way to $filename. > > I can of course use the decoded_content method and save the result > to file. But I was hoping that there is a method that will do it > for me... > > Thanks! > Meir > >> -----Original Message----- >> From: Uday Bhaskar [mailto:uday.bhas...@gmail.com] >> Sent: Sunday, April 15, 2012 6:13 AM >> To: Meir Guttman >> Cc: Libwww Perl >> Subject: Re: How to deflate a ':content_file' response saved to a file >> >> Are you thinking about use IO::Uncompress::Unzip ? >> >> Thanks >> Uday >> >> On Sun, Apr 15, 2012 at 1:55 AM, Meir Guttman <m...@guttman.co.il> >> wrote: >> > I would like to download gzip (or similarly encoded) HTML content. If >> > I keep the response in a variable, I can decode the contents using >> the >> > 'decoded_content' method, as follows (Just extracted from a working >> > script, but not tested): >> > >> > #################################### >> > use strict; >> > use warnings; >> > use base 'HTTP::Message'; >> > use LWP::UserAgent >> > >> > my $can_accept = HTTP::Message::decodable; >> > >> > my $ua = LWP::UserAgent->new; >> > my $response = $ua->get($uri, 'Accept-Encoding' => >> > $can_accept); >> > print $response->decoded_content, "\n"; >> > #################################### >> > >> > On the other hand, another variation of the 'get' method can save a >> > response to a file, as in: >> > >> > $ua->get($url, ':content_file' => $filename); >> > >> > But I couldn't find a way to first deflate the contents that is saved >> > to file. >> > >> > Can someone point me to the right part of the LWP package? >> > >> > Thanks, >> > Meir >> > > >
