Re: Fetching the charset when set in meta.

Bill Moseley <[email protected]>
Newsgroups gmane.comp.lang.perl.modules.lwp
Message-ID <[email protected]>
On Mon, Jan 08, 2007 at 03:57:20PM +0100, Gisle Aas wrote:
> LWP already provide a method to decode the content for you:
> 
>   my $content = $response->decoded_content;

Ah, thanks.


> This method will also undo various Content-Encodings for you.
> look at the source for decoded_content you will notice that it parse
> the Content-Type header using:
> 
>        if (my @ct =
> HTTP::Headers::Util::split_header_words($self->header("Content-Type")))
> {
>            ($ct, undef, %ct_param) = @{$ct[-1]};
>            $ct = lc($ct);
>        }

It would be handy to have a charset method.

A few questions.

Since $res->decoded_content decodes encodings, is there any code to
help set Accept-Encoding based on what you use for uncompressing the
content?

I was doing the uncompressing manually, and setting my
Accept-Encoding by first seeing what modules could be loaded.

Think it's safe for my code to test for Compress::Zlib and then add
"gzip, x-gzip, deflate" as Accept-Encoding?


I need to look back at my code, too, as I'm using
IO::Uncompress::RawInflate now for "deflate" -- I was using
Compress::Zlib::uncompress() but it wasn't working -- and switching to
IO::Uncompress solved it.  Must have been my implementation and not
the module after all as you are using Compress::Zlib for deflate.



-- 
Bill Moseley
[email protected]
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.