[SP-pm] Dificuldade em configurar WWW::Mechanize para determinado site

[Lucas Moraes]

Tiago++

Resolvido Tiago, valeu você esta correto e sua ajuda contribuiu muito na
solução do erro. Eu confundi achando que o problema estava na codificação
de envio, mas o problema de codificação era na resposta. Solução:

use Encode;
my $content = encode 'utf8', $mech->content;

Solução encontrada nesse tópico
http://stackoverflow.com/questions/8289485/wwwmechanize-and-wide-character-warning
.

Em 24 de março de 2013 22:22, Lucas Moraes
<lucastiagodemoraes em gmail.com>escreveu:

> Tiago o erro só acontece quando eu passo na query string "q=valor", com
> acento ou sem acento ele dá o mesmo erro. Mas mesmo assim, segui a sugestão
> que você me passou e não funcionou. Tentei também no terminal com mech-dump,
> retorna o mesmo erro.
>
> Em 24 de março de 2013 18:23, Tiago Peczenyj <tiago.peczenyj em gmail.com>escreveu:
>
> veja se esta thread lhe ajuda
>>
>> http://www.perlmonks.org/?node_id=762769
>>
>> tem haver com utf-8 encoding
>>
>>  2013/3/24 Lucas Moraes <lucastiagodemoraes em gmail.com>
>>
>>>  Salve mongers! Meus amigos estou com dificuldade para usar o
>>> WWW::Mechanize em um determinado site, meu cliente quer que eu capture as
>>> informações do mesmo para integrar em seu sistema, mas estou encontrando
>>> muita dificuldade, eu usei muito pouco o módulo WWW::Mechanize. Então vamos
>>> lá:
>>>
>>> Quando faço a requisição, no server de teste do Catalyst me retorna:
>>> [error] Caught exception in engine "Wide character in syswrite at
>>> /home/lucas/perl5/perlbrew/perls/perl-5.16.1/lib/5.16.1/x86_64-linux/IO/Handle.pm
>>> line 478, <DATA> line 1000."
>>>
>>> E no navegador me retorna:
>>> Erro 354 (net::ERR_CONTENT_LENGTH_MISMATCH): O servidor encerrou a
>>> conexão inesperadamente.
>>>
>>> O código:
>>> my $mech = WWW::Mechanize->new;
>>> $mech->get('
>>> http://www.jusbrasil.com.br/legislacao/busca?q=usucapião&s=legislacao');
>>> my $valor = $mech->content;
>>> $c->res->body("$valor");
>>>
>>> Alguém pode ajudar ou me indicar o que devo fazer.
>>>
>>> Obrigado.
>>>
>>> =begin disclaimer
>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>  SaoPaulo-pm mailing list: SaoPaulo-pm em pm.org
>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>> =end disclaimer
>>>
>>>
>>
>>
>> --
>> Tiago B. Peczenyj
>> Linux User #405772
>>
>> http://about.me/peczenyj
>>
>> =begin disclaimer
>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm em pm.org
>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>> =end disclaimer
>>
>>
>
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20130324/ecf2b344/attachment.html>